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1.0 


2.0 
2.1 


2.2 


é.3 


3.0 


4.0 


ABSTRACT 
THE RK11/RKOS DYNAMIC TEST AIMS AT 
TING THE TELECTROMECHANTCAL INTREGRITY 


et CHECKING THE LINEAR POSITIONER CONTROL AND SPEED 


f RUSINE STAREGR SB PERHEATE 4" 


THIS IS A TEST ONE LEVEL HIGHER THAN THE BASIC RK11 
LOGIC TESTS. 


REQUIREMENTS 

EQUIPMENT 

A. PDP11 WITH CONSOLE TELETYPE. 
8K OF MEMORY 


8. 
C. RK11 OR RKV11 CONTROLLER 
D. 1-8 RKOS OR RKOSF DRIVES (DRIVE TYPES MAY BE MIXED) 


PRELIMINARY PROGRAMS 


RK11 LOGIC TEST I. (MAINDEC-11-DZRKJ) 
RK11 LOGIC TEST II (MAINDEC- 11 DIRK) 


EXECUTION TIME 
ERROR FIRST PASS ON POP11/20 WITH CORE MEMORY 
TAKES IMATELY 5 MINUTES (WITHOUT THE SEEK 


TIMER AND GRAPH, ADDITIONAL 3.5 MINUTES FOR THESE). 
LESS FOR FASTER MACHINES OR MEMORIES. 


STARTING ADDRESS 
200 FOR ANY NORMAL MODE OF OPERATION. ALL SWITCHESS 


210 — FUNCTION SELECTING PROGRAM (CONVERSATIONAL 
PROGRAM CONTROL MODES & OPERATOR ACTION 

PAPER TAPE LOADING 

ae DUMP MODE 

RKDP CHAIN MODE 

ACTII 
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4.1 
4.1.1 


4.1.2 


%.3.2 
3.15.9 


4.1.5 


PAPER TAPE LOADING 


LOAD PROGRAM INTO MEMORY USING STANDARD PROCEDURE 
FOR ABSOLUTE TAPES. 


UITH “DISKS, AnD THE DRIVES TO BE me og ARE LOADED 
WITH IN ’RUN’. T ENABLE’ THEM. 
CHECK THA LIGHT ON THESE ORIVES 1S OFF . 
BUT DRIVES THAT ARE NOT TC BE TESTED ON * LOAD’ . 

LOAD ADDRESS 200 

SET SWITCHES IF DESIRED (SEE SEC 6.0) 

PRESS START. 

THE PROGRAM IDENTIFIES ITSELF 


RK11 DYNAMIC TEST 
MAINDEC-11-DZRKL-E 


THEN IT PROCEEDS TO FIND WHICH DRIVES ARE PRESENT 
AND PRINTS OUT THE DRIVES FOUND. IF AN RK-OSF 

IS DETECTED, AN F IS APPENDED TO THE DRIVE NUMBER: 
— PRESENT 

l 


AFTER TYPING OUT THE DRIVE THAT IS GOING TO 
BE TESTED, EXECUTION OF THE TESTS START. 


AFTER ALL THE TESTS HAVE BEEN EXECUTED ON ONE DRIVE 
THEY ARE EXECUTED THE NEXT DRIVE IF PRESENT. 
THIS IS REPEATED TILL ALL DRIVES ARE TESTED 

AT THE END OF A PASS THE FOLLOWING IS TYPED OUT: 

END PASS x X=0,1,2...... 

CONTROL IS TRANSFERRED BACK TO THE BEGINNING OF THE 
PROGRAM AND RE-EXECUTION BEGINS. 

RKDP DUMP MODE 

THE PROGRAM IS LOADED BY THE RKDP MONITOR. 


ee SELECT ANY SWITCHES YOU WANT AND PRESS 


THE PROGRAM IDENTIFIES ITSELF AND PRINTS OUT: 
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4.3 


4.4 


5.0 


6.0 


‘TO TEST DRIVE °N’ HALT PROGRAM, REMOVE RKDP PACK AND REPLACE IT 
WITH A WORK PACK, CLEAR LOCATION 40, AND RESTART PROGRAM’ 


RKDP CHAIN MODE 
TE ORE TAMTEM ROHR ELP” PEEPS ELE 


"DRIVE ’N’ NOT TESTED’ 


DRIVE ’N’ WILL NOT BE TESTED SINCE THE RKDP PACK IS ON 
THAT DRIVE. 


ACT11 MODE 


THE PROGRAM IS LOADED BY THE ACT11 MONITOR. AFTE 
IDENTIFYING ITSELF. ASCERTAINS THE NUMBER 
PRESENT AND PROCEEDS TO TEST EACH OF THEM AS BEFORE. 


DRIVE SELECTION 


IF ANY PARTICULAR DRIVE IS TO BE SELECTED FOR 

Ha "RUN’, "WRITE ENABLE’ . 
PUT THE RE ‘LOAD’, "WRITE LOCK’: 
THEN START AS USUAL. 


SWITCH OPTIONS 

IF THE A et IS BEING oP OS A eee eae : ag ME Rae F170) 
is SEIS Tee NS, LILES 

"SOF TWARE’ SWITCH REGISTER IS LOCA T LOCATION 176 


(8). THE 
SETTINGS OF 2 TCHE ROLLED THROUGH A KEYBOARD 
ROUT INE WHICH TS CALLED WYPING é PEONTROL G’. THE PROGRAM WILL 
RECOGNIZE THE *CONTROL G’ WHENEVER PROGRAM ENTERS 


THE 
THE SCOPE ROUTINE OR BEGINS A NEW TEST. 


” SOF TWARE ’ Ye AS_AN OCTAL NUMBER IN RESPONSE 
PROM THE Sul TCH EN ENTRY ROUTINE: 


’SWR = NNNNNN NEW =’ 


EACH TIME SWITCH SETTING ARE ENTERED THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ROS ARE NOT REQUIRED., "RUBOUT’ AND 


"CONTROL U’ FUNCTIONS MAY BE ED. TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRY. 


ON SSORS WITH HARDWARE SWITCH REGISTERS, THE ‘SOFTWARE’ SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
"UP’ POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE 


TEST Y ( ) 18-JUL-77 : 7 
Moab tee DgRKL- ie + PEAR EREOS | Qyygric ES MACY11 30(1046) 14-JUL 08:03 PAGE 
*SOFTWARE’ REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 


BE FOLLOWED 

SW 15)=1 HALT ON ERROR 

ae {33 =} teeY" ERROR PRINTOUTS 

SW<12>=1 aERROR TO THE PREVIOUS 

SH 14>=1 mek a RK11 REGISTERS ON ERROR 

Su< 09> = LOOP ON SPECIE IC ERROR 

SW 08> =1 LOOP oN TEST INDICATED BY USER (SEE 

SW<06>=1 TYPE TIMER 

SW<05>=] TYPE GRAPHS 

SW<94>=1 PRINT THE COMPLETE GRAPH 

SW<03>=1 TERMINATE FUNCTION SELECTED BY USER 

SW< 02> =1 DROP THE DRIVE AFTER MAXIMUM - 

SW<00>=1 ASK FOR PATTERN TO BE WRITTEN OR 
WRITE CHECKED (FUNCTION SELECTION 
PROGRAM) 

6.1 SW< 15> 


THE PROGRAM HALTS ON ENCOUNTERING AN ab RROR AFTER 
TYPING OUT THE ERROR MESSAGE PERTINENT 
INFORMATION. PRESSING “CONTINUE” RESTORES NORMAL 
OPERATION OF THE PROGRAM. 


6.2 SW< 14> 


THE PROGRAM LOOPS ON THE SUBTEST THAT IS BEING 
EXECUTED WHEN THE SWITCH IS PUT ON. THIS SWITCH IS 
USED NORMALLY ALONG WITH SW 1S. 


6.3 SWé 13> 
THIS SWITCH INHIBITS ALL ERROR MESSAGES. NORMALLY 
USED WHEN LO°?ING ON TEST (SW 14) OR LOOOPING ON 
ERROR (SW 39). 

6.4 SW< 12> 


THIS SWITCH ALLOWS THE PROGRAM TO CYCLE FROM THE 
POINT OF ERROR TO THE PREVIOUS SCOPE STATEMENT. 


NOTE THAT IN DOING SO ANY INITIALIZATION BEING DONE 
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AT THE BEGINNING OF THE SUBTEST WILL BE DONE AGAIN 
AND AGAIN. SEE SEC. 6.7 FOR A OIFFERENT KINO OF 
SCOPE LOOP. 


6.5 SW< 11> 


MS) aa AL Oe RP ING OF ALL RK11 REGISTERS ON 


6.6 SW< 10> 


RINGS A BELL ON ERROR, USEFUL WHEN ERROR TYPEOUT IS 
INHIBITED. 


6.7 SW<09> 


: 
E 
a 


oma 
=z 
OP 
35 
x 


BE I 
PARTICULAR PART OF A SUBTEST IS BEING REPEATED USING 
SOOPETER IN ERROR’ (EXAMPLES RADA TS BEING WRITTEN 
AND BEAR BACK WITH Ont PATTERNS FROM 1 TO 177777 
PATTERN S61 IS GIVING MIGHT NOT WANT TO 
GO THROUGH THE PATTERNS BEFORE HITTING ERROR ON 
THE S&ITH PATTERN. IN THIS SWS WILL GIVE YOU 
A SCOPE LOOP ON THE S&ITH PATTERN ONLY. ) 
6.8 SW< 08> 


The pan ice IS USED TO T A_PARTICULAR TEST FOR 
E ION. WHEN THE IS STARTED (200) WITH 
THIS SWITCH SET, THE FOLLOWING MESSAGE APEARS: 


OCTAL TESTS? 


THE USER SHOULD REPLY WITH THE TEST NUMBER (OCTAL) 
HE WANTS TO SELECT, FOLLOWED BY CARRIAGE RETURN. 


THE SELECTED TEST IS EXECUTED AGAIN AND AGAIN. 


TO 

GET OUT OF THIS LOOP, PUT SW 8 BACK TOO. THIS WILL 

OPERATION OF THE PROGRAM. TE THAT 
D TEST 2 SHOULD 


ei fest HASH G8 Be Edie 


&.3 SWw< 06> 


JOl 
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THIS SWITCH WHEN SET MAKES THE PROGRAM TYPE THE SEEK 


TPE" + men ERECTION, “BNOMEVER MAILE the PRPPObr OR rRURINS THE 
OCCURING. 


6.10 SW<0S> 


a laa. eo Baie TP a TED 


me BEEN PLOTTED, TO 
SKIP PLOTTING e REST oF 7 THE. POINT 


6.11 SW< 04> 


SHAPES YB or SAE og STA oft 


_ ty (ONLY. SEL SEL c¥ED CYLIN RS CPLofteb) | IS CR INTED 


6.12 SW< 03> 
rine i ooh TERMINATE ak TION 0F THE 
Fu ee rrfirep how. ban ro KEE 
SEC 

6.13 Sw<02> 
H THE PROGRAM TO DROP IVE FROM 
ae a ian Ms nn aN 

(TOTAL NUMBER OF ) ON 

THAT DRIVE IS EXCEEDED. THE MAXIMUM ALLOWABLE ERROR 
COUNT IS 6, AFTER 6 ERRORS HAVE OCCURED THE DRIVE IS 
DROPPED MESSAGE ( DRIVE # XXXXX DROPPED) IS 
PRINTED. 

6.14 SW<OO> 


THI or paeTce I WITH FUNCTION 
IF A WRIT eof Q A WRETE 

CHECK FUNCTION 1s. ) WITH THIS HE 

arte ASK FOR ie Par TERN TO BE WRiTten OR 
TAL) PA nuré PATTERR’ WILL Bt WRITTEN (OR 


TE CHECKED) ON THE DISK. FOR FUR’ 
REFER TO SEC. 90. 
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7.0 


Fol 


KO1 


PROGRAM DESCRIPTION 


ee AeeBETEETING, TREPPENOLNG 
2 y ms i. nT FORMATTED 
ae Fag wigs G eT ie 


= IS CHECKED E 
TIME FOR PPROPER FORMAT, "HOWEVER 


Ar GrEtKED Gut BY “boinc InecteD SEEK, UStAG. THs 


PATTERNS. THE FIRS 


RE i-0-30.. sAlt-T90 "Secon ONE Pal cm 
PAT ERROR, 
a li-e a anes sl ai NG AN 
haa ROOK ne RE: 
heat oe EVER FOR THE RETRIES ARE 
iN rae c ggsconr EEE SIE 9 MeL TING IS ete 
Ts TREAD. (SOF TWARE ) "RITE CHECKED. 


Tat Ws SR SG STI OT. THE USER CAN 


TTERNS TO BE WRITTEN On THE DISK. THE 
SATA TRANCEER BUEFERS CAN BE REL “LOCATED BY THE USER 
TO. DIFFERENT PARTS OF MEMORY. REFER TO (OCA TIONS 
’PBUFO’, 'PBUFI’, PATI’ "BTRNOL IN THE LISTINGS 
FOR MORE DETAILS: SEE StC 7 


TEST WRITES 


SEI A AER. UHH Beso” 1 edits 


THE SEEK TIMER PROVIDES SEEK TIMES AND GRAPHS AS 
EXPLAINED IN SEC 8.0 


A FUNCTION SELECTION SUB-PROGRAM IS PROVIDED FOR 
USER SELECTION OF FUNCTIONS. SEE SEC 9.0 


EVERY TEST IN THE PROGRAM IS PRECEEDED BY AN 
ANATION OF THAT TEST. THE USER IS ADVISED TO 
TO THAT, IF MORE INFORMATION IS NEEDED. 


PERMISSIBLE USER PROGRAM MODIFICATIONS 


: 
: 


?.i.4 


7.1.8 


7.1.6 


USER CAN MAKE MINOR CHANGES IN POINTERS, TABLES 
TO TAKE CARE OF HIS SPECIAL NEEDS. IT 15 
IF , RIGHT AT THE 


SPE 
ANY 

SEEK TIMING CAN BE DONE BETWEEN ANY TWO CYLINDERS 
THE CYLINDER RODRES® 


ON LINE PRINTER, CHANGE LOCATION ‘STPS’ TO 
177514 AND LOCATION ’S$tPB’ TO 177516 

VECTORS) . 

INPUT/OUTPUT DATA BUFFERS (FROM WHERE DAT ERS 
WILL BE DONE TO AND FROM THE DISK) CAN BE RELOCATED 
TO ; itt; "HE PBK OF MEMORY (D0 NOT. Ov Y THe 
OF Loca ons a GENS TY STARTING 


nz, 


1 a a Mla 


A.’ 
POI s CONTAIN STARTING ADDRESS OF 
ROUTINE. 


OF 
LOCATION ’PAT2’ TO ’PTGENO’ (STARTING ADDRESS 

Saco 

C L ; TION ’PAT3’ TO ’PTGENO’ (STARTING ADDRESS 


FILL LOCATIONS ‘PTRNOL’ AND ’PTRNO2’ WITH THE 
TO, WRITE 2 DIFFERENT PATTERNS (IN ALTERNATING 
CHANGE ’PATI’, '"PAT2’ AND ’PAT3’ AS DESCRIBED ABOVE. 
FILL "PATRNOL AND ’PATRNO2’ WITH THE TWO PATTERNS 


IN TEST 10. IF YOU WANT TO WRITE AND CHECK CYLINDERS 
127 AND 128 WITH PATTERNS OTHER THAN THE le USED 
ANY OR ALL OF THE 12 POINTERS ‘SPI’ THROUGH 
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8.0 


9.0 


*SP12’ TO CONTAIN PATTERNS YOU WANT. 


SEEK TIMER & GRAPHS 


Geb" Fine Hie EPEKE OE seer coOntER TRS” oct 


USED AS A TIME ACCURACY OF THE Be 


Sa cbics'n | ee pai pOTATION SPEED 


OF THE 


ESE AE A 
ete PRINTOUT IS feeesdeh Nan TIMES 6 a 
ae he 


IF YOU WANT TO TIME SEEK BETWEEN ANY OTHER SET OF 
CYLINDERS. YOU CAN DO BY FOLLOWING THE INSTRUCTIONS 
AT LOCATION *SOAD’ IN LISTINGS. SEE SEC 


THE THE _*CYL 
Hon TRS. Site Senet SBE rie 
NORMALLY THe SPALL GRAPH “- PRINTED 

oUF ee Het PABOUT 49) hee Me RANGE 
FROM CYLINDER O TO 202. IT GIVES THE USER A QUICK 
SEEK CHARACTERISTICS OF A DRIVE. 
THE OPTIONAL COMPLETE GRAPH (SW 
SIMILAR 10 THE ONE, 
CYLINDERS (203). 
THE GRAPH SHOWN ON LAST PAGE IS 
ar TCHTLY DIFFERENT. CHARA 
SLIGHTLY DI CHARAC 
FUNCTION SELECTION PROGRAM 


THIS PROGRAM GIVES THE USER A CAPABILITY TO SELECT A 
FUNCTION AND EXECUTE IT, FROM THE CONSOLE TELETYPE. 


STARTING ADDRESS=210 
ON STARTING THE PROGRAM AT 210, THE FOLLOWING 
QUESTION APPEARS: 





4) gi vee A GRAPH 
BUT PLOTS ALL THE 


FUNCTION? 


MOl 
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THE REPLY SHOULD BE: FOR WRITE 


CHECK 
CHECK 


FOR CONTROL RESET 
F VE _ RESET 





RS 3585 & 


ALL COMMANDS SHOULD BE TERMINA CARRIAGE 
RETURN. DEPENDING ON WHICH FUNCTION IS GIVEN THE 


FOLLOWING QUESTIONS APPEAR: 


RKBA? TYPE IN THE BUS ADDRESS (OCTAL) 
FOLLOWED BY AC.R. 


RKDA? TYPE IN THE DISK ADDRES (OCTAL) 
FOLLOWED BY C.R. 

FA ISTENT SECTOR IS SELECTED, 
The" QUESTION IS REPEATED AGAIN. 

SWORDS? we THE NUMBER OF WORDS YOU WANT 
TO by AS a sect SHOULD. 2 IN y yt -, § sd 
IT TOO SOI LM, DEPENDING” Of 


THE BUFFER Tze AVAILABLE . 


MILL" ASK FOR THE Ona PATTERN TO Be WRITTEN: 


TYPE _IN THE DATA 

PA COcrAL) ult oe Mt »FOLLOWED BY <CR>. THE 

PAT WILL ON THE DISK. NOTE THE NUMBER 

: WORDS 10 BE WRITTEN AND THE DISK ADDRESS SHOULD 
BE SPECIFIED. 


FOR A WRITE CHECK FUNCTION: IF SW O IS SET TO 1, THE 
USER IS ASKED FOR THE PATTERN TO BE WRITE CHECKED: 
PATRN? THE USER SHOULD TYPE IN THE (OCTAL) PATTERN. 


FOR A SEEK FUNCTION: CYL1? CYL2? IN REPLY TO THESE 
TYPE IN THE CYLINDER NUMBERS (OCTAL) BETWEEN WHICH 
THE SEEK IS TO BE DONE. IF A NON EXISTENT CYLINDER 
IS TYPED IN THE QUESTION IS REPEATED AGAIN. 


THE FUNCTION IS EXECUTED AGAIN AND AGAIN. 10 GET 
OUT OF THIS LOOP SW 3 SHOULD BE SET, AT THIS POINT 
THE QUESTION (FUNCTION?) IS ASKED AGAIN. 


F UPON EXECUTION OF A FUNCTION AN ERROR OCCURS IT 
ALL SWITCH OPTIONS WHICH APPLY TO ANY 
OTHER ERROR, ALSO APPLY TO THIS ERROR. 
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COMMAND A MI 


Me Oe DELETED 6 





IF ON INPUTTING A 
THE INPUT 
. ’ KEY, THE NEW 





10.0 ERROR INFORMATION 


BAe Oy Ren cher Te 
eo aoe = ne 
pee les a re Bins 
RPO OF TA AINLY 

tt aC ae narra 

PeSSGES ARE iN OCTAL ee 
PRINTOUT -pORE PRINTOUTS. GecuR. THEY" 


11.0 UNEXPECTED TIMEOUTS AND RK11 INTERRUPTS 


Ro ton OUT en abe ne WHICH 
PRE 


eee tec IF Sent jae TnTACT, BE RESTARTED BY 











ERROR 
ARE eGivEN TO 


IF _ AN omy mi INTERRUPT OCCURS THE PROGRAM 

OUT AT WHICH THE INTERRUPT CAME IN AND 
THEN HALTS. ING CONTINUE WOULD RESTART THE 
PROGRAM FROM BEGINNING. 


12.0 | COMMONLY USED SUBROUTINES 
A BRIEF EXPLAINATION OF mie oe IS GIVEN IN 
THE 7 er (JUST res Ae FOR THAT 
a he a (Pee LISTED In THE 
LISTINGS. TW as tN WHICH eng S_ ARE 
Ac ROU NCODED 


TRAP INSTRUCT TION. THe UOLER BYTE OF i * TRAP’ 
INSTRUCTION IS USED TO INDEX THROUGH THE TRAP TABLE 


ea aa ioe TEST MACY11 30(10%6) 14-JUL-77 08:03 PAGE 1S 
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13.0 


e:27 
($TRPAD) FOR THE STARTING ADDRESS OF THE DESIRED 
ROUT INE. 





SAMPLE GRAPH AND SEEK TIMER OUTPUTS 
S A PART 


0 FRE OUTER DH ES HEURES on 


FORUARD AND AND REVERSE SEEKS, BETWEEN A SET OF CYLINDERS. 
SEEK TIME SCALE FACTOR=0.01 AIL SECS 


s OF SEEK 8 OF SEEK 
SEEKS TIME SEEKS TIME 


CYS: 2 ete REVRSE 


100 9075 100 9075 


CYLS: 0-1 
FRWRD REVRSE 
106 82S 160 1155 
CYLS: 179-181 
FRidRD REVRSE 
100 1155 100 1155 
CYLS:0-3 
FRURD REVRSE 
100 1485 100 1485 
CYLS:0-16 
FRWRD REVRSE 
100 3135 100 3135 
CYLS: 0-32 
REVRSE 
100 37985 100 3795 
CYLS:0-196 ’ 
REVRSE 


100 $775 10C $775 


DOe 
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#2SAMPLE OUTPUT## 


SEEK TIME - MILI SECS 
cYLI 


I 
I 


?_fP__-P_-fP Pe epee 


X AXIS - 
Y AXIS - 


YNAMIC TEST 
:27 
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icky MASS. 01754 
:¥PROGRAM BY JIM KAPADIA 


: 
; #THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
(MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


tS JANUARY 1975 


* i 
:#REVISED MARCH 1976 BY TOM SAWYER 
;#REVISED BY CHUCK HESS, AUGUST, 1976 


- SBTTL OPERATIONAL SWITCH SETTINGS 





re 


- SWITCH 
- 
;% 15 
°& 14 
-% 13 
;% le 
% 10 
;# 3 
;# 8 
;# 6 
;% S 
;% oy 
-# 
;# 3 
,* 
;# e 
-& 
;% 0 
-# 
.# ll 
se YOU ARE ADVISED TO READ THE pecan FOR THIS PROGRAM 
c ;# FUNCTION SELECTION STARTS AT 210. 
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eC RIL E: BRAS EREOS Ove BAST. DEP ING EONS 
g6° -SBTTL BASIC DEFINITIONS 
870 -#INITIAL SS OF THE STACK POINTER #42 1100 #4¢ 
87! 001100 STACK= 11 
a72 EQUIV , ERROR :;BASIC DEFINITION OF ERROR CALL 
73 -EQUIV IOT.SCOPE ::BASIC DEFINITION OF SCOPE CALL 
§75 -#MISCELLANEOUS DEFINITIONS 
876 900011 A= 1 - CODE FOR HORIZONTAL TAB 
878 aa seats CR= tE :: FOR Le TURN 
875 090200 CRLF= 200 . FOR CARR TURN-LINE FEED 
880 177776 PS= 177776 . SSOR STA 
177774 ears Ess IMIT REGIST 
38: 177772 BI = 177772 i BROchAN TERRE RPouest REGISTER 
384 177570 = 177570 -:HAROWARE SWITCH REGISTER 
B85 177570 ODISP= 177570 -: HARDWARE DISPLAY REGISTER 
-#GENERAL PURPOSE REGISTER NIT 
Baa ooc000 RO= %0 . Rett 
88g 000001 Ri= %) Bee 
seigeg = 4 ee 
Ba -_ * + 
892 oo0004 2 “4 ; ;} GENERAL 
pO OOS . Y 
B96 ooog00& = “ -: STACK PO 
897 000007 Pc= “7 : : PROGRAM 
999 -#PRIORITY LEVEL DEFINITIONS 
300 oo00000 Pro= OO -- PRIORITY LEVEL 0 
901 000040 PRi= 40 - PRIORITY LEVEL 1 
000100 = 100 ;:PR eery 2 
000140 = 140 - PR TY L 3 
000200 = 200 ; ;sPRIORITY 4 
gas 000240 = 240 -:PRIORITY LEVEL S 
306 000300 = 300 - PRIORITY LEVEL 6 
sce 000340 PR7= 340 ::PRIORITY LEVEL 7 
-#"SWITCH REGISTER” SWITCH DEFINITIONS 
310 100000 GwiS= 100000 
911 040000 Swi4¥= 40000 
Sle o20000 SWi3= 20000 
913 010000 SWl2= 10000 
914 SWil= 4000 
315 SWwi0= 2000 
316 001000 SWwOS= 1000 
31 900400 SwOos= 400 
3 ae : i 
330 eens = 40 
321 ooede20 SWwO4= 20 
322 000010 SWO3= 10 
323 900004 Sw0e= 4 


NQ=h4-OZRKL-E, .RKAA-RKQS QYYQNIC TEST 


000002 
oooc01 


PRESS SES Posts SBIR OC RRND 


3 ats 


sees 


0 
“J 
e- 


-~ 
a 
- 
com 
- 
= 


Sees 


ee 
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-#DATA BIT DEFINITIONS (BITOO TO BITIS) 
T1S= 100000 


raat 
lane 


SSaeegam na 


Pita 


O44 Ot bt a 
= 


44 
oO 
~- 

" 


Sccwne 


oe 
<<<< 


Soope— 


POs En Vee 


DWMOOMDMOOwW MMOM-r cc -— 
O~2 8 4 Ot 4d ~ 4 
44 HAH 4 
O~ MW CUI JO. 


ier 
8 


-¥ a RAP VECTOR SSES 
iREVE : ” iad m ROME OUT AND OTHER ERRORS 
RESVEC= 10 ;;RESERVED AND ILLEGAL INSTRUCTIONS 


=14 ried ae | HI 

TR TVEC= ty i Teac TRAP 
-:BREAKPOINT TRAP (BPT) 

IOTVEC= 20 -: INPUT/OUTPUT TRAP (IOT) ##SCOPEss 
PURVE 24 - FAIL 
EMT > 30 ss EAA ATOR TRAP (EMT) ##ERROR## 
TuvEc= 60 ii TTY RRYOORRD VECTOR 
PIRQVEC=240 :: PROGRAM INTERRUPT REQUEST VECTOR 


.SBTTL TRAP CATCHER 


Sik I TT LO NTT? OD ae 2 


000000 
rSLL UNUSED Lover IONS FROM 4 - San INT N A". 42,HALT” 
= SEO 10h \QuCONTAINS 8 ¥0 CATCH I RLY Prue BeD VECTORS 
900174 Baoacc DISPREG: “WORD ;; SOFTWARE DISPLAY REGISTER 
000176 o00c00 ;; SOFTWARE SWITCH REGISTER 
"SBTTL STARTING. “AQDRESS (ES: 

O000200 000137 O0246e ;;JUMP TO STARTING ADDRESS OF PROGRAM 

000210 .=210 

001216 INCB FFUNC ;SET FLAG aon SELECTION OF 

000214 000137 O0e46e2 JMP J8START FUNCTION PROGRAM 


-SBTTL ACT11 HOOKS 


-KERKKERARE REL SELES ESHER ESHER ELE FSA EHE RSE SRFAA BERS EEEEREFH ERE EE ES 
HOOKS REQUIRED BY ACT! 





SREB SPREE RE BOSS RRIRE 8 
: 
; 
8 


000220 ;SAVE PC 

000046 . =46 
SENDAD ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
I OO00 ‘ 0 pe LOC.S2 TO ZERO 
: 000220 . =$SVPC ;; RESTORE PC 


See a 













100s .SBTTL COMMON TAGS 
] ; iTHiG TALE CONTAING VORIONS COMMON cToRAGE Location’ 
Ks ATER TRPb be PROBANA, Y VARIOUS COMMON STORAGE LOCATIONS 
! 
1814 oo1109 2100 scntac: “1100 ;;START OF COMMON TAGS 
1013 001100 000000 SPASS: .WORD 0  Souaite 
(Bis SBti8S = BB a: vie 8 : EoNTAtNe 
i016 001104 900000 SICNT: .WORD 0 : CONTR 
(Big Goiii8 Gaoode SLPERR: “WORD i RONTR 
1019 001112 O00000 SERTTL: .WORD 0 1 CONTA 
tea oB11is ein SITEMB: .BYTE O ; ; CONT ALN Te 
: 1 Be 1 aoe: pee l MAX. 
iiss Boi Ee nC BOADR: ‘eb ae i gees | 
1025 001124 o00000 SGD0AT: .WORD 0 A 
ot ie ; Sek 
iS BS Me: “BE ANTOLDY NOE BHC 
Bs BS ine Sie BM ORE & RIL ALE, 
103 OO114e 177562 SKB: 1778E2 a ee ee 
es ae ae A te Be coe 
1 501 18s 0 SFILLS: “BYTE 2 S 8 OF FILLER. CHARACTERS REQUIRED 
BOI Le? 06 STPFLG: “BYTE A° rE" FLAG (B (BITC?) cOeYES 
001160 00000 SREGAD: .WORD 0 2. a 
ie BL et: ae ae} 
l 001166 SREGe: .WORD 0 SREGAD ) +4) 
Be BB 8 a ee ae (‘BEES st, 
ee BH oe fe feed 
1 1176 SREGS: .WORD 0 ( 14) 
1051 001200 SREG7: .WORD 0 ane Sree) 16) 
{Bes 1586 Saas . 2% Ss 
1 1206 SBELL: .ASCIZ (207)<377><377> ;; 
: ists SQUES: .ASCII 77/7 .* 
SCRLF: .ASCII <15> 
l 001214 SLF:  .ASCIZ <12> seb EED 
: eTtriiTittitt ir iet titi iit iiitittitiititi iii ireeii reir erro, 
1960 


MO-11-OZRKL-E, RK11-RKOS DYNAMIC TEST 
OZRKLE.P11 26-APR-77 12:27 


-— = bb b= be pe er -e - 


PERERA ERS a0 4 
S 
8 
8 


iP b— b= bp -- bo pe 


O82 
083 
: 





= = & 
> 
: 


we 





o = 0 be 
TUN £ Or -ODS VRE OS 





+ = B= bb 8 BO bb ee be 


b&b - > + & = & -o -- &- > o-- & = b= B= P— P— & = BP fF -* De 


MACY11 30( 1046) 
COMMON TAGS 


* 


14-JUL-77 08:03 PAGE 23 


ONES HAKE THE LA he Me ON LINE PRINTER, (IF YOU HAVE 


FFUNC: 


XXDPMD : 


LUPSW: 


;CHANGE CONTENTS OF ’STPS’ TO 177514 (LPT VECTOR) 
: CHANGE 6 es 


CONTENTS OF ’STPB’ TO 17751 
TAGS AND GENERAL DATA AREA 


. WORD 
. WORD 


Lam) oe] oe) 


ooo 


0 
0 


oy SET, TO Oe BY ENTRY INTO FUNCTION PROGRAM 
oe J ibieare on ie NS THE RKOS "XXDP’ CODE 
iE LEG  cBEAR pie es BY USER (SW 8) 


;CONTAINS NUMBER OF DRIVES THAT HAVE 


REE LCERRY CHE é oF DRIVES PRESENT 


arise IMIGH CHECKING SHOULD BE DORE POR Bee Bree raise 
pan We. THe ADDRESS OF THE DRIVE 


; THESE ARE FLAGS TO INDICATE 


iPREGENT BIT DIS ceT TO 

: INDICATE THAT. BITS 13, 14, 1S 
-CONTAIN THE LOGICAL DRIVE 

: ADDRESS 


;GENERAL REGISTERS 


;CONTAINS INNER ADDRESS 
:CONTAINS OUTER ADDRESS 


;GENERAL BUFFERS 


SNE LH ME Ty OO IIT Oe 


T T 
tHE BRE: Octo" BF BREA TE” FE, Sli Botte" 
i : BOTH SHOULD BE 768 (DECIMAL) WORDS 

PBUFO: I0BUFO TO THE START SS OF THE 
a a Ses ‘BUFFER USED "5 READ 1 oes 
1124 OO1406 031446 PBUF1: IOBUF1 TO START OF “OFF R 
i ie ED. (WRITING 
1127 001430 900000 BUFLGO: .WORD 0 LAG FOR ’ IOBUFO’ 
1 001412 o00000 BUFLG1: .WORD 0 FLAG FOR *IOBUF1’ 
if 001414 9010106 PATO: PTGENO :RORES WF ’PATRN GENERATOR 0’ 
1133 001416 010170 PATI: PTGENI ‘ADRES OF ’PATRN GENERATOR 1’ 
1135 001420 010272 PaT2: PTGENe sADRES OF 'PATRN GENRATOR 2’ 
F 001422 010334 PAT3: PTGEN3 ;ADRES OF ’PATRN GENRATOR 3° 
1139 001424 oD0000 PRSPAT: .WORD 0 ;CONTAINS THE POINTER TO_THE 
11 S OF 1 OF THE 3 ’PATRN 
1141  GENRATOR’ ROUTINES 
1142 001426 oo0000 NXTPAT: .WORD 0 :SAME AS ABOVE 
iv 001430 oo0000 PGSUBR: .WORD 0 
114g 001432 900000 DSKADR: .WORD 0 ;CONTAINS DISK ADRES (DA) 
1 001434 oo0000 BUSADR: .WORD 0 sCONTAINS BUS ADRES (BA) 
f 001436 oo0c00 WRDCNT: .WORD 0 -CONTAINS WORD COUNT 
1188 001440 ooo000 WOSKAD: .WORD 0 sCONTAINS DISK ADRES 
1154 o01442 oOD0000 WBUSAD: .WORD 0 -CONTAINS BUS ADRES 
i 001444 oo0000 WRDCN: .WORD 0 :CONTAINS WORD COUNT 
1158 001446 o00000 BUFNO: .WORD O -CONTAINS STARTING ADRES 
1160 001450 ooc000 ADRES: .WORD 0 -OF A BUFFER 
Lige fal REGISTERS 
11 FOR REASON ASON THE REGISTER ADDRESSES ARE DIFFERENT FROM 
1164 (BELO THE CONTENT OF THE APPROPRIATE POINTERS SHOULD 
Lies ‘BEY RD! IED 34 THAT THE RORRECT GISTER ADDRESS IS USED. 
116 
1168 001452 177400 RKDS: 177400 
1169 146s 177402 RKER: 177402 
1173 201466 177s RKuc: | 177406 
1172 001462 17741 RKBA: 177410 


DORKLE Pi '2e-MOR PP se? 


3 


001464 
001466 


001470 


>— P-- P= b= op ep 
ob — b—- > —- bo — o— 


001472 


Oe b= bh & <P bs ps 


BSS QRRIBRH BIS RA? 


mb bh bh pe pe Pp oe 





— — — 0 FO 0 8 ee 8 0 8 = 8 be be be be be —— 
a 7 + 4 








177412 
177416 


000220 


MO 
macy PLowe) 14-JUL-77 08:03 PAGE 25 
RKDA: 







177412 
RKDB: 177416 
RKPRI: 200 ;CONTAINS THE CPU LEVEL (4) AT WHICH 
Ph BNGED IF PKI S testi TED 
Then §b8: a. 
WOULD 
$ 
CAL PRIORITY BITS IN PSH) 
RKVEC: 220  OONTAING TOR AOBRE SS 
‘TO INTERRUPTS. IF THE 
HAS BEEN CHANGED, MODIFY 


INDX1: 0 -GENERAL INDEX REGISTERS 
INDX2: 0 
INDX3: 0 
INDX4Y: O 
ERCNT1: O ; REGISTERS 
ERCNT2: 0 : REGISTERS 
ERCNT3: ' REGISTERS 
ERCNTS: 0 
ERCNTE: O 
ERCNT7: DO 
ERCNTS: 0 
THE FOLLOWING TABLE CONTAINS THE CYLINDERS BETWEEN WHICH THE SEEKS WILL BE 
-#TIMED. THEY TED TO GIVE SOME TYPICAL SEEKS TIMES FOR THE 
i #3 SEEK SPEEDS. IF FOR ANY REASON YOU WANT TO TIME SEEKS BETWEEN ANY 
#0 T OF CYLI , MAKE CHANGES IN THE CORRESPONDING SEEK CYLINDER 
: ADDRESSES. 
-#QUTER CYLINDER ADDRESS, FROM WHERE SEEK WILL BE DONE 
SOAD: ; ; CYLINDER 0 
13140 : ™ 179 
0 . 
0 ee 
0 a: = 
0 ;” 8 
-#INNER ADDRESS, TO WHICH SEEK WILL BE DONE 
SIAD: 14500 ;CYLINDDER 202, LAST 
13240 - * 181 
140 , * 3 
1000 ; *@ 16 
2000 , © @ 


NOe2 
I4-JUL-77 08:03 PAGE 26 


MACY11 30(1046) 


COMMON TAGS 


RK11-RKOS DYNAMIC TEST 


26-APR-77 12:27 


MD- 1 1-DZRKL-E 
OZRKLE.P11 


IF ANY MORE TESTS ARE 


ITIONAL POINTERS SHOULD BE INSERTED. 


8. 
T 


USED TO TRANSFER CONROL TO THE 


SW 
ADD 


a 





€15><12>/READ HORS OK FROM CYLB ABOVE/ 
€15><12>/CNTRL RDY DIDN’T SET/ 


€15><12>/TEST # ABORTED: / 


€15><12>/SIN/ 
«15><12>/SKE/ 


-ASCIZ 


-ASCIZ /SECTR EXPC P-HDR RECV P-HDR/ 


-ASCIZ / PC= / 


-ASCIZ 


1: 


;MESSAGES & ASCII STRINGS 
MSGS: .ASCIZ 


OS2l23 mMSG3: £.ASCIZ 
MSG10: 


O42Se4 
1 ph iee 043517 MSG4Y: .ASCIZ <15><12>/PROG ABORTED/ 
0Seiee 


105 
O40 050040 036503 MSG7: 


— 


001602 005015 O44Se3 000116 
001610 005015 O4SS23 OO010S MSGe: .ASCIZ 





B03 


-E, RKl ovmenic TEST MACY11 3O(10%6) 14%-JUL-77 08:03 PAGE 27 
1] 26 APR le:27 COMMON fas 
MSGle 


TRY 8:7 


“ 
i i ie i i i | 
i i i a i i i i ah 


(15><12>"R/W/S RDY NOT SET” 


(15><12>/DRIVE / 


/ 


O44 4 4 4 4 0 4 0 PY 
Ot 4 b—4 B—-4 O-4 0-4 6-4 O40 4 


SOeOSeees F 


ASCIZ 
-ASCIZ 

ASCIZ 
. EVEN 
0 


atm G; 





8 BZ SH HO 
pt oot? 051104 OS3111 MSG14: 









RERERR ERR TERE 





ated aw st wee OE SE td ed ed Od ed ed ed wd md wd og ws oo 4 


OZRKLE . 


MD-11 


a ay DYNAMIC TEST MACY11 30(104%6) 14-JUL-77 08:03 PAGE 28 
ZRKLE .P Li 2b lé:27 ERROR POINTER TABLE 









eit: .SBTTL ERROR POINTER TABLE 
131? S TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
1317 er Ton SITERe a I TAI BY gas c IN 
i 1: a0 _ $I S HH ght The TABLE. 1S PERTINENT. 
iB - #NO ABLE or Y PERT 4 POINTERS EXPLAINED AS FOLLOWS: 
] -2 EM POINTS TO eer rene 
: # ~ POINTS TO ite 
* OF ut 18 tte para FORMAT 
l 
: 002 122 SERRTB: 
1330 
eat ; ERROR ITEMS TABLE 
l 
l 
E - ITEM ! 
: peice 024334 + > CNTRL DIDN’T aT AFTER — 
A686 ° 
ee Boe Se Hack pet : SERRPC Gl G2 $REG3 
1340 130 oo0000 0 
i341 
: -ITEM 2 
1 EM2 ‘pan ON SEEK 
l DH1 RKCS RKER RKDS RKDA 
: art : SERRPC SREGO S$REG1 S$REG2 S$REG3 
l 
' -ITEM 3 
l EM3 -DRE ON SEEK ~ 
l DH! -PC RKCS RKER RKDS RKDA 
: gt -SERRPC SREGO SREG1 SREG2 SREG3 
ls 
' -ITEM 4 
13 . ON 
I fen : Kee RKER RKDS RKDA 
: : _ -SERRPC SREGO SREG1 SREG2 SREG3 
] . 
: 3 -ITEM 5S 
i MS -*DRU’ ON SEEK; PUT DRIVE ON "LOAD’ BACK TO *RUN’ 
| a -PC RKCS RKER RKDS RKDA 
' gti -SERRPC SREGO S$REG] SREG2 S$REG3 
j 





? 
fn 


» 
~ 
ee 





hae ahah ad ak ad ad ch ak a a a ad aed ed aed aed aed ad eee ed 


GROSSE TRAP SSB RG ERE IS IIIS SS 


SSBIRRE 





os ie be pp ee hw RH 
wre 


> + bb bb 0 Be Bb Fo Bb 0 bo 8 0 ee 
Z£ESELELELSESL 


HP 











RK11-RKOS DYNAMIC TEST 
eb -77 12:27 


: ITEM 


: ITEM 


- ITEM 


; ITEM 


- ITEM 


- ITEM 


- ITEM 





DO 
14-JUL-77 08:03 PAGE 29 
ABLE 


a a 


;SIN ON WRITE FMT 


: PC RKCS RKER RK RK CYLINDER 
:SERRPC SREGO Gl G2 SAEC3 SRECY 
:*ERR’ ON DOING WRITE FMT 
: RKCS 3s RK RKDS RKDA CYLINDER 
SERRPC $REGO G1 S$REG2 S$REG3 G4 
RKDS RKDA: 

G2 

¢? 
; ERR’ ON READ FMT 
: PC RKCS RKER RKDS $$ RKDA CYLINDER 
*SERRPC SREGO REG] REG SREG3 S$REGY 


;WRONG HEADERS FROM "SEC 8 
;SECTOR 8 HEADER RECVD 


;USE THIS SUBROUTINE FOR TYPING OUT ERROR DATA 


;ERROR ON IMPLIED SEEK FROM CYLA TO CYLB 
PC CYLA CYLB RKER RKOS TR 


: Ya 
;SERRPC SREGO S$REG) 


SREG2 SREG3 SREGY 


;READ WRONG HORS FROM CYLB ABOV 
;SEC# HEADER RECVD 


MO-11-DZRKL-E, RK11-RKOS DYNAMIC TEST MACY11 30(10%6) I14-JUL-77 08:03 PAGE 30 
DZRKLE.P11 | 26-APR-77 12:27 ERROR POINTER TABLE 


1426 002270 015364 ESRIS :GO TO “ESRIS"™ FOR TYPING OUT 
ies - TEM 16 
1430 002272 O2S02! EM16 ; READ WRONG FIRST WORD FROM SECTOR 0, ‘CYLB’ (ON IMPLIED SEEK FROM cvié 
1431 002274 Oe6046 OH16 cri YLB—- EXPCT RECO TRY® 5 
1432 Doge" 026350 OT?  SERRPC GO SRECI S$REG2 G3 SREGH 
14 000000 0 
1434 
ie - ITEM 17 
1437 002302 025126 MS17 ss; READ FIRST WORD FROM SECTOR 1, "CYLB’ ABOVE 
14 123 OH17 ss: PC C CVO 
14 410 pri? :SERRPC §REGO &t Ge 
144] 
io -ITEM 20 
1444 002312 174 EM2cO.Cti«é: WRONG ON IMPLIED SEEK FROM ‘CYLA’ TO ‘CYL’ 
1445 000314 pSeteq OK13 SECTOR a ME ADER RECWD 
144% O02316 O00000 0 
1447 O02 015532 ESR20 :USE THIS SUBROUTINE FOR TYPING OUT ERROR DATA 
1449 
1480 -ITEM 21 
1452 002322 Od2S26e2 EM21  ;EROR ON DOING WRITE ON DSK 
1453 O023e4 25500 DH! : PC eKCS RKER RKDS §_ RKDA 
l 00232t 0263.4 OT! :SERRPC $REGO Gl S$REG2 SREG3 
1 9320 0 
| 
; -ITEM 22 
1 002332 025316 EN22  —;; SIN ON DOING WRITE 
1460 025500 OHI : PC RK RKER RKDS = RKDA 
146 36 026334 OT1 :SERRPC SRE GREG! S$REG2  SREG2 
ibe 340 900000 0 
Wee -ITEM 23 
| 2 025341 EM232 =; HE ON DOING READ 
ide? SoS s44 025653 OH! 1 1 RKCS RKER RKDS RKDA: 
l 002346 026366 OTll =: SRE Gs 
1496 ‘Sefcu’ Seece gece | SREGS 
1474 002350 000000 0 
ty -ITEM 24 

002352 025362 EM24 CSE ON READ 

002354 2616! DHEY 8s : PC : Try RKCS RKER RKDS §- RKDA: 


ORV Y SE 
DT24 ; SERRPC SREGIO SRE GO SREGi SREG2 
-$REGY SREGS SREC& SREG7 


SSEREEE 

+ 

: 

Ee 
nm 


1482 


Ape 11 Ogre. -€, RK 1 1-RK YNAMIC TEST MACY1i1 30(1046) 14-JUL-77 08:03 PAGE 31 
OZRKLE.P11 Oo Brae ERROR POINTER TABLE 


26-APR- 
1462 -ITEM 25 
4 
1484 002362 025376 EM2S §_ ;:DATA ERROR ON FROM DISK ss 
Ne oes FEBS OHeS =:WORDS EXPCT CVD CYL SEC 
1 Popes :USE THIS ROUTINE FOR ERROR REPORTING 
ies -ITEM 26 
l4ae Ooea74 | Goeees Bi? ipE ON ARKCS” KER © -RKDS ~—RKOA 
i983 002376 026366 OT11 iv SrEGO cue SRec2 7 
1495 : SREGH SRege SREGE $REG7 
149% oo2400 9000cc 0 
1497 
ies -ITEM 27 
1500 on2de O2S54Sé ENG? -WRT CHK EROR 
l 026161 } Ys RKCS RKER RKDS  RKODA: 
1eo3 ‘Dhve cyl) | OSUR SEE 
1503 O02406 O26422 OT24 ;:S$ERRPC SREG1O SREGO G1 SREG2 
l : SREGY G 


- ITEM 


RK DF 
G3 


Sat Rie 
ie 

238° 

3! 

ae a 
= g 
aS 

s g 
z 


&-0-0 -?- 2 b-—- >< &-= & = b= &-< b= &- §- 
atari tattle altar ta! 


P+ © + 0 = b 2 b= bo Be Be 
Mm NOU st Wwrue-O 


: 


wv 
e-- 
0 


—- > b— bb Bb b+ bo bo ph pb . 


ree ea 


BS halt 


re 


+s 


-— — &— Pb P— Pp pe 
uw 


TORIC EGE ne Eke Soman CORO RSS See 


> +o +> bb > bP P< b— bb DP P= FO PP PF = bP 2 be bP 2 bP 


-~, 


RK11-RKOS DYNAMIC TEST MACY11 30(1046) 14-JUL-77 08:03 PAGE 32 
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‘vo 
o- 
e- 


RESP ART Ly. 3 oe al FOR UNEXPECTED TIME OUT. PRESSING CONTINUE WILL 











002422 011600 BADTMO: nov (SB) .RO ; -SAVE PC WHERE TIME OUT OCCURED 
a8 ‘ 
ae 322 CMP (SP)+, (SP)+ ; RESTORE STACK POINTER 
002430 10440! 002436 TYPE S$ ; TYPE ASCIZ STRING 
002434 000407 BR 4§ “GET OVER THE ASCIZ 
-65$: .ASCIZ ¢15><12>/TIMOUT: Pé=/ 
0024S4 bag: 
ogee 01004 MOV RO, -(SP) ;SET UP FOR TYPING OUT PC 
104402 ‘GO TYPE OUT OCTAL PC 
002460 000000 HALT 
002462 000005 START: 
: GIVE DRIVES TIME TO RELOAD HEADS gle CREO oF an APT 
002464 023737 o00042 o0004 CMP ae42, a846 IN actin AUTO MODE? 
002472 001016 BNE STARTA i ere DELAY 
002474 005077 176764 CLR BRKDA -SELECT UNIT 
002500 012700 o002S0 MOV #250, RO :=WAIT FOR. . 
Oges04 032777 O00200 176740 20%: #£BIT #200; JRKDS ‘DRIVE READY 
le 001006 BNE START “INC 
002514 005001 CLR RI OF APT. 
odes 16 0055301 DEC R] ‘START, BUT 
1376 2 ‘DON’T’ WAIT 
002522 005300 DEC RO : FOREVER. 
001367 BNE 205 ; 
HALT *RKDS BIT 7 (DIRVE READY) NEVER SET 
STARTA: 
-SBTTL INITIALIZE THE COMMON TAGS 
::CLEAR THE COMMON TAGS (SCMTAG) AREA 
902530 912706 001100 MOV Rb ;;FIRST LOCATION TO 7B CLEARED 
CLR (R5)+ :: CLEAR MEMORY LOCATION 
002536 022706 CHP #SWR,R& ;;DONE ee on 
raat nye fy + EOC THE STACK POINTER 
l MOV 10T OT VECTOR FOR SCOPE ROUTINE 
B1e7a Nov torvecse steve 
012737 nov : ere, ENT VECTOR FOR ERROR ROUTINE 
Biers? MOV spasin VECTOR FOR TRAP CALLS 
l MOV ab C+ 
012737 MOV #SPWRON, JSPWRVEC ; POWER, FAILURE VECTOR 
012737 ; Mov #340 DOPWRVEC+E ; s LEVEL 7 ‘a is 
i rash 001115 MOVB a ae j ALL Ob ERROR PER Ree nae : 
l 42 001106 MOV * SLPADR i INIT JAI Em LOOP ADDRESS FOR SCOPE 
012737 001110 MOV 8. S 
-:SIZE FOR A cH rect? FERe IF hor OR IT IS 
EQUAL TO A OR A TWARE Sulton GISTER. 
O026SE 01374 poogos MOV -(SP) ;;SAVE ERROR VECTOR 
002662 012737 16 oo0004 MOV #64S. a SEEARVEC SET uP ERROR VECTOR 
002670 012737 177570 OO1140 MOV sOSWR, SWR :: SETUP FOR A HARDWARE SWICH REGISTER 


HO3 
SOateORTYE: BAARIWOS QYOOIC TEST ORGYEA LLM) oAtsHMyagz 08:03, PAGE 22 


1S75 


ae 


— > > &- p— p— 


B38 
BEB eRR ORS 


-~ bb b> bb &—- pp po 


£0" 


Steet 
BE 88 SRR 


CRESEEN Sr a Ge 


SRR RE OR 


COrrrvrurc cd 
o— bb &— b= op 


OD NOUS Wt 


e-e *-8 +b © >= > &— & - &—- &<- &=- b~- & - be —  —  — &- — P—  — P= P= PP PK 


RRS Paes 


eee BBS 


SEHR ES STURVS 


o-+ ts Fb Ps = be bh pe 


*. 2 \ ea ia | = 
Toateta'ta’ 
SES RRRERE 


ZIPS OBE 


012737 


l 


002724 


176 
174 


a 


o0c04e 
001140 


000001 


001216 
001216 
023172 
001220 
901232 


177770 
000003 


000002 
000040 


000010 O0i2e2C 


Babess 


177870 001142 
77777 


176226 


B01 142 


000046 


000176 


001134 


000041 
001220 





MOV BODISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
BME = gg SR i gdedh URREL 
se T IS NOT = -! 
BR 65S :: BRANCH IF NO TIMEOUT 
64S: Nov #6SS, (SP) -:SET UP FOR TRAP RETURN 
65S: ::POINT TO SOFTWARE SWR 
MOY —«SBISPREG- DISPLAY 
665: MOV (SP)+, @eERRVEC ;;RESTORE ERROR VECTOR 
PC. $TKINT - INITIALIZE THE TTY 
ARB ae42, d846 the te IN ACTL1 AUTO MODE’ 
BEQ 69$ :YES, SKIP TITLE 
.SBTTL TYPE 
-: TYPE THE NAME OF THE IF FIRST PASS 
INC &; -sFIRST TIME? 
Pe. 7 Z STRING 
SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
TST ge WE Tries UNDER XXDP/ACT? 
ae , SSWREG eran Sid Fon REG SELECTED” 
BNE : BRANCH IF NO 
GTSUR ini GET SOFT-SWR SETTINGS 
£98: MOVB 81, SAUTOB ::SET AUTO-MODE INDICATOR 
«BR 675 --GET OVER THE ASCIZ 
jig8s: “ASCIZ <CRLF>/RKLL DYNAMIC TEST/<15> «12> /MAINDEC-11-DZRKL-E/ ‘CRLF 
STARTI: STB FEUNC -FUNCTION PROGRAM SELECTED? 
BRE PB unc -YES, CLEAR THE FLAG 
JMP QeF UNBEG -GO TO "FUNTION SELECTION PROGRAM’ 
7$: MOV 8 , RO -CLEAR FLAGS F 
cg: CLRB (RO)+ : *XXDPMD” TO "DRIVAD' 
CMP RO, #ORIVAD+2 
BNE S 
MOV $-10,R1 
6S: BIC #3, (RO)+ ;CLEAR BIT 0°S IN ‘DRIVE 
IN¢ R PRESENT’ FLAGS. 


THE FOLLOWING CODE FINDS OUT THE PROGRAM CONTROL MODE: 


2s , 


‘PAPER TAPE (MANUAL), ACTI1, RKDP CHAIN OR 


CHP 2,41 ; LOADED FROM AN RKOS ? 
MOV 40, XXDPMD : GET DEVICE INDICATOR AND DRIVE ADDRESS oF 
CMPB —s- #10, XXDPMD : ORI ROORESS 7 OR LESS ” 
Bree 4 SXDPND iBRIVE YER THE PROGRAM 
#8 42 ORR cERe a ade UTC ACCEPT ” 

Q 3$ ‘BR IF NEITHER 


NOs 1 -OZRKL~E, RK AA-RKQS DvygMIC TEST 


104401 003210 
000413 


ER om 





i 
164 3033 1 


poe 


003321 
‘cece 
yoaaee 104401 003330 


1 
ake Sey 


003S 12 


PB 6 -- PS 


ie 
pe 
5 
660 
661 
662 

4 


tS 


= >— P—- > b— b= = bP b= Pb bP ps 





6 

tere | : 001224 
ier 001232 
eve 001220 
17 001220 
1 75 1411 

1 010177 175660 
: : 17S642 
1 

{2 000061 
1 005722 

1686 005203 


003S12 012737 O02422 O00004 


I03 
BOF SAL GE ARR dor tian shirk AbersreR 
TYPE p58 ;;TYPE ASCIZ STRING 
bags: ORSC1Z 18 c12>mot restife ontee 7 _ 


Sova © xxOPMD, (SP) _'CEY Drive -ApORESS * 


Fi pain 


$ 
67$: .ASCIZ <15><12>/T0 TEST’ 


Ss 





BR + 2 
69S: .ASCIZ / HALT PROGRAM, REMOVE RKDP PACK AND REPLACE IT/<1S)<12) 
TYPE 71S ; TYPE ASCIZ STRING 
“GET OVER THE ASCIZ 
71$: .ASCIZ /WITH A WORK pack’ CLEAR LOCATION 40, AND RESTART PROGRAM’ 


STe: MOV SBADTMO,ERRVEC ;SET TIMEOUT VECTOR FOR 
UNEXPECTED TIME OUT 


: THIS CODE FINDS WHICH DRIVES ARE PRESENT & PRINTS OUT THE DRIVE 
“DRIVE NUMBERS THAT WERE FOUND ON LINE. 
TYPE Z i TYPE IZ STRING 
BR es T OVER te ascIz 
igss “ASCIZ «15> <12> DRIVES bagSent, 
cLPe DRIVS s INITIALIZE NO. OF DRVS PRESENT 
MOV #ORIVO, Re 
CLR R3 - INITIALIZE COUNT TO 0 
1$: TST *-LOADED FROM AN RKOS ? 
BEO b$ :BR IF NOT 
CMPB = R3, XXDPMD ‘CHECKING THE LOAD DRIVE ” 
bs ay so. arwor i BORES AC RIVE 
TSTB © ARKDS -IS IT PRESENT? 
PAC OBRIVS UNCRERENT TOTAL @ OF 
BIS #1, (Re) : rere INDICATING THIS ORV PRSNT 
2$ TST (RE) 
INC R3 - INCREMENT COUNT 


NO ade OBRKL-E. .RKALERKDS Qyiygric TEST 
062701 
001384 
004737 
ogiai0 


i 
1692 
1693 


ee 


1697 


i 


-— b-- — >= 


SRSR ER ER NS 


o +o b= bb bb be 8 0 bP 8 8 8 0 0 = be bs bP pe 
BOVREIRP PERV As SS 

; . = 

‘EEL. [ALATA 


a=8 


o <b bp pp 5 


DWONW UI CUT — 


™ 


003626 
003632 
003634 
003640 
003644 








001226 


JOS 
BF TATE PBR or tink Suitch AEcIsTER 


ADD #20000, R1 sADRES THE NXT DRV 
BNE 1S :FEKR GL 8 RRA EP” NEXT DRV PRSNT 
JSR PC, SIZEF :FIND WHICH ARE FS 
TSTs ortvs ; WERE ANY DRIVES FOUND? 
BNE 3$ BRANCH - 
APE ge att bee a 

jie? “ASCIZ 7 NONE/ 

— «UMP SEOP TE TRO ENB be” BRogRad” 

” Ov ab 1V0,RO sORIVE OF AVAIL ORIVES 

ss: tere  tROI i ORTUE. HERE’ 
BEQ 4% -NO 
TYPE 
SCRLF 
HOY R2,-(SP) rte ygtAck 
-BYTE i -TYPE 1 DIGIT, SUPRESS LDG 0°S 
aft #2, (RO) -IS IT RKOSF? 
BEG ag if : 
oR oe +s UE tea tue nec tz 

jib: -ASCIZ / 

ug: INC INT TO NEXT ‘ 
BS MPidenven —Herogay is TE 


bi CHECK REST 
A AE HPA. RU MATER ME 
ST3: 





pe 
LR 
NXTORV: CLRB -RESET TEST NUMBER TO 1 
CLR -CLEAR ERROR COUNT FOR THIS DRIVE 
1$ BIT :IS THIS DRIVE PRESENT? 
4§ CHP R1, SORIV7+2 ; CHECKED THE WHOLE LIST? 
- IV EOP ™ YES, EXIT 
MOV RtAL RY ‘Cet “80 BHEAD NO. TO BE TESTED 
CLR FORVE | 
CLR FORIVE :SHOWS F IF -1 
BIT #2, R4 i RK -0SF? 
FDORVE! °S 
sist 5, ‘SHOWS F 


K 
ne Svein RK11-RKOS DYNAMIC TEST MACY11 30(1046) 14-JUL-77 08:03 PAGE 36 
SORKLE- il aenhennoe 12:27 GET VALUE FOR SOFTWARE SWITCH REGISTER 


1odg Bil §g0000, RY : YEN ORIVE? 
MOV 


#-1. FDRIVE 'RKOSF AND EVEN 


002114 
7$: BIC 83, 
RY, ORIVAD ;SET UP DRIVE ADRES 
YPE M5614 


RY ; TYPE OUT THE DRIVE NO. 








— = pp 





aa labeled 2222 2 


004110 TYPOS 

Bost ts ‘BE 4 

004114 005737 002116 TST —-FDRVE1 ;RK-OSF? 

an 4401 004130 cs iM PE ASCIZ STRING 
1 | 4§ -:GET OVER THE ASCIZ 


65S oASCIZ JF / 
64s: 


of; g 15 SET THEN FIND OUT WHICH TEST NUMBER IS 
‘SELECTED AND JUMP TO THAT TEST. 


dageree ates 
22 
PR RBS 





l 004132 105037 001222 CLRB §-LUPSW - CLEAR FLAG INDICATING SW8 SET 
1 004 136 032777 000400 174774 BIT #SWB, aSWR ‘Si @ SET? 

1771 144 01445 BEQ TST! "NO, BRANCH 

i Spi - 

1 14% 104401 O04154 TYPE 675 -; TYPE ASCIZ STRING 

1774 OO41S2 OOO4I0 BR bb$ -:GET OVER THE ASCIZ 

1775 --67§:  ASCIZ <15><12>/0CTAL TEST#?/ 

1776 004174 és: 

l 004174 104412 RDOCT 

1778 76 012600 M0 (SP)+,RO 

1706 000011 ied ,#1l :CHECK TYPED IN TEST 8 

1781 BGT -IS LEGAL, IF NOT ASK 

1 10 110037 001102 MOVB RO, STSTNM 

14 Soe a RO sFORM POINTERS FOR THE TEST 
l 1 001560 001106 BT (ROD SLPADR ;ADJUST POINTERS FOR SCOPE 
1786 013737 001106 001110 MOV SLPADR,SLPERR = :L , 

A l 001222 INCB LUPSW SET FLAG INDICATING TEST # 
1789 004240 000177 174642 IMP JSLPADR -GO TO THE TEST SELECTED 
Me 

l 

i -ON RECOVERY FROM POWER FALIURE RETURN HERE 

l 904244 o0s000 PWRFL: CLR RO 

1798 00424 005001 CLR Ri 





LO3 
77 


a etd RK ras YNAMIC TEST Yil 30(10%6) 14-JUL- 08:03 PAGE 37 
OCRKLE P11 26-APR- BID CET VALUE FOR SOFTWARE SWITCH REGISTER 
I 








ieee Giiese Oulart — = 

ie 004256 001374 BNE 1s 

l 

t Boe $3 SEFFPSSESRRRELESHFESEEEESEEEREEHEAREHRAHEHEEPELEFSSELRAEEESEESEEEE 

-&TEST | CHECK INNER LIMIT Suz TCH a ELEC TRORE CHANICAL SWTEGAITY 
ies 10,0, oft ds spony 

1810 ITCH AND 

1811 NOTE THAT A VISUAL CHECK FOR 

181¢ : FAI UL. 

181 ee PECTS TILE TET TOOT ISOOCTOTTCTCOTOS TO TTT TTT TTT TTT TTT TTT TTT TT TTT Te 

1814 260 oo0004 tét1: SCOPE 

ig Boers Seat of RUTH E 

181 1 CLR Ri ‘INITIALIZE COUNT FOR # OF SEEKS 

1817 OO4266 o0so02 CLR R2 : CONTAINS SEEK ORES 

iis 004270 012737 004322 001110 MOV #20S , SLPERR ipeT S FOR LUPING 

| 004276 012703 001266 MOV #BUFR,R3 - INITIALIZE POINTER TO THE TABLE 

182 we 012704 177767 MOV #-11,R4 -ALLOW ONLY 9 CNTRL-RDY, SIN, OR R/W/S RDY ERORS 
1 Ol 1 MOV #-10,R5 “ALLOW ONLY 8 DRU+DRE+ERR+DRY ERRORS = 
is 312 ooo4de BR 2s 

1 004314 005703 1S: TST R3 -WAS THERE ANY ERROR? 

1 403 BEQ 3$ : NO 

l 2s: CLR R3 -CLR FLAG 

104415 20$: CON. RESET ;60 DO CNTRL RESET. SUB RCUTINE 

ise 104416 DRV. RESET *GO TO ’DRV.RST’ & DC DRV RESET 

1 013777 001230 175130 3S: MOV DRIVAD,SRKDA § ; ADRES THE DRIVE 

18323 050277 175124 BIS R2, ARKDA “SET SEEK ADRES 

1 108777 175106 TSTB gRKOS “DRIVE RDY? 

1 1 BMI 1$ 

1 004737 016162 JSR PC, GTYRG "NO. GET RKCS, ER, DS, DA 

1837 104030 ERROR 30 jORI VE RDY BIT IS NOT SET 

| - IN 

l INC R3 -SET ERROR 

1 INC RS j ALL OW ONLY S ERORS, IF MORE 

151 BE 18$ : ABORT 

1843 004362 012777 000011 175066 21%: MOY $11, aRKCS :G0, SEEK 

1844 004370 4g: INC RO -WALT FOR CNTRL ROY 

ime att S$ ; WAT TED LONG? 

l 004374 004737 016162 JSR PC, GTYRG GO, GET 24 a ER, DS, DA 

l 104001 ERROR 1 ‘CNTRL ROY DION’T SET AFTER 

l “SEEK WAS DONE TO CYLINDER 
l ‘SHOWN IN RKDA. GO TO ’RK11 LOGIC TESTS 
l gowde INC R3 -SET ERROR FLAG 

1 INC RY “EXIT THIS TEST IF THERE RS OR MORE ERRORS 
l 004406 001502 BEG 18$ 

1854 OO4410 O00403 BR ¢ 





MO-11-DZRKL-E, RK11-RKOS DYNAMIC TEST 
26-APR-77 12:27 


OZRKLE .P11 


wes 


ree 


: 


ms 








ee 


a 


8 
< 


8 
g 


z 


e 
3 


Sse 


bas 


000100 


016162 


001000 
016162 


174752 


016162 


174732 
016162 


002000 
016162 


S$: 


175022 


174772 


10$: 


174702 12$: 


i 30( 1046) 


GAARA Oe 


a a8 wakes #85544 3 


14-JUL-77 


qexcs 


18 


08:03 PAGE 38 
CHECK INNER LIMIT SWITCH & ELECTROMECHANICAL INTEGRITY 


SPP GY thar? FoR ft 


pa a 


‘MATT FOR R/W/S RDY 






fb 


1NO, BRANCH 
ie 





GET RKCS, 
ON DOING SEEK TO’ CYLINDER 


;GET RKCS eh OS, 


SEEK 
bat Sere INDICATED IN RKDA 
, ABORT 


5 eh Bt BOING: bk T0 


oe REACHED, 


OS, DA 


Pee ek four nce 


ya. THE TE 
ti IT IN RKCS SET? 

ta | IN neal od mc DOING SEEK 
WHICH BIT I 
ise 2 COUNT REACHED 
: ABORT NE test 
sDRU SET? 
;NO, 
;GO CS, ER, OS, DA 
: T, THIS IS AN {RRECOVERABLE 
‘TOAD, OT ERROR 
“LOAD, BACK TO RUN. 
:SHOULD BE CLEARED, IF IT IS NOT 
-1) THE HEAD POSITION TRANSDVCER LAMP 
“1S I IVE 
2) OR ERASE OR WRT CURRENT PRESENT 
“WITHOUT ’WRT GATE” 
:SET EROR FLAG 
“ALLOW ONLY S ERRORS 
:1F MORE THAN 


_—- — a A —s eee - —_—_— —= a ~~ 


NOS 
SORRLE Brin OR APR eee ee Meee eR INNER LYRIT SWITCH S ELFETROMECHANICAL INTEGRITY 


;GO TO THE END OF THE PROGRAM 











1911 
1912 

1913 OONSE& 005702 18S: TST Re ;WAS SEEKING TO 0 OR 312” 

1914 001402 BEQ 16S “TO 0, BRANCH 

191 1 ale 

1916 004572 905002 CLR Re NT TIME 19 0 

1917 004574 ? BR 1§ “GO BAK & SK T 

004S76 012702 014S00 16$: MOV #14500, R2 «SEEK NXT TIME TO 312 

1 1 INC Rl ;DONE SEEKS 200 TIMES? 

SOEDS 59350 000200 CMP #200, R1 

1 004610 001241 BNE 1$ ;1F NOT, GO BAK 

12 OO04O4 BR TST2 : EXIT 

1927 

1 004614 104401 O01640 18S: TYPE 

004620 000137 015224 IMP tsTi2 

1931 = > SE AEAE SESE 3k SE SESE SES SE Ea aE A SE HE 0 SE SEE SH a A Sa a a a 
1932 -&TEST 2 T D 

1933 -#THIS PROGRAM AN UNFORMATTED DISK AND I TS 

1934 =F N TH T. A TOR 1S FORMA TTED 
1936 #0 FIRST EVERY SECTOR IS WRITTEN 
1 -#TO BE AINING THE DRIVE #8. CYLINDER 
1937 -#8, SURFACE AND SECTOR 8. OWING IS CHECKED 
1938 :#1: rane IF *SIN’ A DRI RESET IS DONE 

1 = AND SAME SECTOR IS F AGAIN. THREE 

1940 - #RETRI BEF ORE ON IS PRINTED. 
14 #2. ERR’ a NG THAT THE ERR’ IT SET, RKER 
He : D TOF OUT WHAT CAUSED IT AND THE 

l ETT T TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TESTS ESSE TTS TTT TSS 
Sis 900004 tST2: SCOPE 

1 13737 001230 002120 DRIVAD,ORHOLD  ;SAVE DRIVE NUMBER 

ide ; 002114 TST FORIVE “SEE IF EVEN RK-OSF DRIVE 

l 005737 002116 TST ODD RK-OSF? 

001125 = TST3 “DO NOT FORMAT IF ODD RK-OSF 

i Tiare Pores , NOV ; Ce oN i cECT crore “ 

1 Ol 177773 MOV #-5,R1 ‘ALON OMY 5 ‘SIN: ERRORS 

1 1 177773 MOV 8-5’ RS “ALLOW ONLY Ss 

O1 Ds 001230 ™ HOV ae ce oRI YAO, RH :STORE ADRES OF DRIVE. 

1 iPaate DRV. RESET ;G0_TO *DR-RST’ & DO DRIVE RESET 
l o0so00 1S: CLR RO *KEEP COUNT OF 'SIN’ ERORS 

1 “ALLOW 3 RETRIES ON SIN 

l 005777 174550 TST IRKCS : ERR? 

100001 BPL 3$ : NO 

1368 104415 CON. RESET -GO TO ’CN-RST’ & DO CONTROL RESET 
1966 ooso4e 3S: CLR ~(SP) 
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Ia 


SITS SSSAEY 


e335 


1) PO 8 B= B= Bn Bae = bm be B= Pe ae be ae Pn ee Be be en 
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— a Pe a 
fe 


a 





a] 
poe 
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= S geese 







Z ae 


aa 


oR 


i 
7 


o 
roe 
oO 


RS 
95 
RY 
is 
g- 
tl 
se0 
Re 
1$ 
FOR 
1 


3S se Ramee 





3 


BO4 
€, PRLS ame TEST ACYL 30,4046) nee” 08:03 PAGE 40 


PR WM TO ZERO 






ca. my 
igs MERE THERE 37 


; THIS TEST 


T THIS TEST 


’ TMBIT SET 






Y 1 Then § 


Si Hack St Bae CYLINDER 


3 RETRIES 


T WAS DONE 


SET IN RKCS 







;NO 

;FORMAT ODD DRIVE OF F 
;RESTORE DRIVE ADDR 

> EXIT 


RESET 





oo ta yh CYL 


ON cron or IER 
ea 


ae TST 
NOT, GO GO BAK & PRT NXT SCTR 


COUNT FOR 12 SECTORS 
CLR OUT SEC BITS 


THE AL, TRAK TO B FMTED 
IF NOT GO BAK B "pe NXT CYL, SUR O 
;EVEN RKOSF? 


THis: TEST 
S TO NX 












001504 
001506 
001510 
001476 


174260 
174244 
001110 
174226 


174212 


SERSRRRESRESREEE SESS EEES5440405004608084 


EBeat oe AE ae eR 








~~ 


OWING IS 


CTORS (HORS ONLY) AT A OnE 
’SIN’ rey. ONE eee IF SAW AGAIN 


ahi iin Bi 
eae Be an 


TC tite” Th THE FIRST WORDS OF 
NERS ) IN @ PREVIOUS 























:} ORDER OF READING IS 
1 
CYL31¢ SURI eeesusuees 
MOV a-S, ERCNT1 -ALLOW ONLY S ERRORS (OF BAD HEADER 
=KIND FROM S CYLINDERS) - * 
MOV 8-12, ERCNT2 “ALLOW ONLY 12 "ERR’S 
NOY sCDRIVAD Rs is OYE a CYR PORES =O 
MOV 8-626, INDX2 :313 is (Boe TRAKS) TO B READ 
CON. T GO DO KONTROL RESET 
"RESET “GO DO DRIVE RESET 
CLR TRY2 sALLOW 2 RETRIES IF HORS READ WRONG 
CLR RETRY: “ALLOW 2 RETRIES FOR ’SINS’ 
MOV 80U QRKBA  ;RD HORS INTO LOC STARTING AT THIS 
nov RS : :FROM THIS DSK ADRES 
MOV 84 PERE i 12 HORS 0 BBREE FOR LUPING ON ERROR 
MOV 82005, ARKCS GO, RG FMT OF THIS CYLINDER 
CON. RDY WAIT FOR CNTRL RDY TO SET 
BIT #1000, IRKDS -*SIN’ ERROR? 
BEQ x NO, BRANCH 
JSR PC GETINF 
ERROR il ;"SIN’ OCCURED WHEN DOING RO FMT 
:FROM CYL SHOWN IN RKDA. IT 


_——— ee ——2e oe me - —_—_—— —_— =<. 


MO-11-DZRKL-E, RK11-RKOS DYNAMIC TEST MACY11 30(10%6) 14-JUL-77 08:03 PAGE 42 
12:27 T3 READ 


Pll 26-APR-77 FORMAT OF THE DISK 
BO babe hese 


bev: Reaet 








DZRKLE 
‘4 INC TRY 8 Y 2 RETRIES FOR THIS ERROR 
eS ne ae a ek ye 
132 BNE : THERM BAK & RETRY 
: WAS TRI W BUT ’SIN’. 
Sorte 001510 Inc ERCNT3 : ALL OW AT MOST 
1 
137 OOS&0& IMP 16$ 
5050 174150 6S: IST cs . 
1 016136 JSR PC, GTSRG : YLNOR 
eos 104012 ERROR 12 ; FMT 
2094 LO4Y415 CON. RESET — 
2% 005237 001506 INC ERCNT2 : I 
s0ss ree BR CdS 3 
14§ ; UP TO RD FMT FROM NXT 
2100 : 
Ste ; RECYD. 
21 : S ST ALONG 
tin ; 
2105 004737 007260 7§: JSR PC, CHKHDRS :GO CHECK IF CORRECT HEADERS WERE READ 
2197 001500 TST INDX3 -WAS THERE A MISCOMPARISON? 
el 001513 BEQ 1 -IF NOT, GO SET UP TO RD FMT 
2109 “NXT CYL IN LINE 
110 012737 005170 001110 MOV 82S, SLPERR 
111 104013 ERROR 13 : CORRECT HORS WERE NOT RECVD 
2lle -FROM SECTRS AS TYPED OUT 
e113 THE SAME INDER WAS READ TWICE 
114 005237 00125 INC RETRY? - RE ON SAME CYL AGAI 
2115 001254 CMP 82, RETRY2 - TRIED RDING SAME CYL TWICE 
e116 001301 BNE 2$ -IF NOT, GO RD AGAIN 
Pll : YES ERROR 
2118 005237 001504 INC ERCNT! ‘ALLOW ONLY S ERRORS OF THE 
3113 ‘ABOVE TYPE. IF MORE THAN 12 
l “EXIT THIS TEST 
gt 001505 BEQ 16$ 
21 20S: : THE PSUEDO-HEADERS (FIRST WORD OF EVERY 
2124 :SECTOR) FROM THIS CYLINDER (ABOVE 
gigs : THE CYLINDER THAT GAVE WRONG HEADERS) 
s WILL E READ, NOW. FOLLOWING WILL 8 TYPD OUT 
£158 3 “tNHIBIT TYBEDAT= Mo re SET THIS ENTIRE 
21 ‘READING & TYPING WILL BE SKIPPED 
21 905374 032777 020000 172353 BIT #20000, aSWR ‘ INHIBIT TYPEOQUT? 
e! 402 9001072 BNE 14$ ‘YES, SKIP THE FOLLOWING & GO 
e1 “SET UP TO RD FMT NXT CYL IN LINE 
2134 OOS4O4 012701 177764 MOV #-14,R1 :READ FROM 12 SECTRS 


as 


<= 
~ 


SFRESA 


rrvrururururororururururororererorurorrnn 


0 BB be Bm B= be be bs pe be Be be Pe bo be be he he 
OW EAE Oke bab 


rururururururury 
oo b= bb 


JN SSeCFRIGRS 


ruruvrurururururururururufreurururururufrurururufvruror 
ob be be be be bP bb be be be 


SSBIRRISH— Bsa leat? 


11-O2RKL-E, 
-Pll 


ale 


BR 


mia 3 a9 ae 





RK 1 1-RK 


-85 
32 


i 


8 
Tw 
$-- 
tue 


OS DYNAMIC TEST 
26-APR-77 le: 


001266 


177777 


EO4 
MACYL1 30(1046) 14-JUL-77 08:03 PAGE 43 
13 READ 


FORMAT OF THE DISK 
nov HINO THIS BOS-ABRES 
;RO 1 WROD 


ae 





10S: MOV 
: A eae ER tr FoR CNTRL ROY 
TST” aaKcs ;ANY EROR? 
Bor. RESE? i CLEAR 
BR 14S 'EROR, SO COULDN’T READ PSUEDO-HORS 


158: INC Rl ;READ FROM ee SECS 
BNE 10$ ; IF NOT GO NXT ONE 


:TYPE OUT | CORRESPONDING TO 
‘THE SECTORS WHICH GAVE BAD HEADERS 
‘TYPE: SEC ®, EXPC P-HDR, RECVD P-HCR 


OS. ; TYPE OUT 
MOV sBUFR,R1 -SEC #°S ARE STORED HERE 
11S: TYPE -TYPE CR, LF 
SCRLF 
MOV (RL) .Re 
MOV SOUTBUF , R3 : PSUEDO-HEADERS WHICH WERE 
*READ ARE STORED HERE 
128: TST Re -IS THIS SEC # CORRESPONDING TO THE 
43° "R2 CONTAINS THE SEC 8 


C 
TST (R3)+ 
BR 12$ 


13S: MOV (R1),-(SP) ;GO_ TYPEOUT SEC 8 GIVING 
HEADERS 


T > >MISCOMPARISON OF 

BYTE 90 >SUPRES LDG 0°S 

TYPE ; TYPE 2 BLANKS 

BLNKSS 

MOV RS, -(SP) >GO TYPE EXPCTD PSUEDO HEADER 
B15 (RL). (SP) 

TYPE -TYPE 2 BLNKS 

BLNKS7 

MOV (R3),-(SP) GO TYPE PSUEDO-HEADER RECVD 
TYPOC 

TST (R1)+ -TYPED OUT ALL SEC #°S IN ERROR. 
CMP (RL), #177777 

BNE 11$ -IF NOT GO BAK & TYPE NXT 


SBaLLeORN Reuse gr TES 





2191 
2132 001733 
193 00$374 
ge 001213 
196 
Ft 
$195 
l 70 000020 
001476 
001404 
e204 005602 000137 005164 
e206 O0S606 004737 016772 
2207 
2208 
2209 
2210 
e211 
e2le 
e213 
e214 
ssi? 
16 
5 
5515 
e220 
e2el 
eee 


5554 


00S61e 000004 
ee4%e O0SELY 104415 


FOU 
4-JUL-77 08:03 PAGE 44 


MACY11 30(1046) 
13 READ 


T OF THE DISK 
TYPE , MSG7 ; TYPE OUT PC 
a 820$ , -(SP) 
TYPE’, SCRLF 


; TYPE ROUTINE ENDS HERE 
pny OT NXT TRAK TO B READ 


NXT CYL_IN 


14S: ADO 820,RS T ADRES FOR SUR L 
RS (626 TRAKS 


INE 
INC INDK2 ALL 313 CYLI 9 


BEQ TSTY 
JMP 1$ f: NOT, GO BAK & READ NXT 
16$: JSR PC, ABRT 
_SEESEFRELSAESRESSEFERASAARASREAHEAAAAAALELERERAERKSLFSLERES ARPA GS 
SRTEST 4 SEEK PATTERNS: 0-312-0-311-...,USING IMPLIED SEEK 
-##24TEST 2 (WRITING PSUEDO-HEADERS) SHOULD HAVE BEEN DONE BEFOREsss+ 
* bab DOING T TEST ### 


SEEKS (IMPLIED SEEKS USING "READS’) IN THE 


FOO nee Den ee G-1-0-0 


lig FIRST WORD OF EVERY SECTOR IS A PSEUDO-HEADER eld IN 
INDER NO. , SURFACE 


SSUING A 'READ’ FOR 






Hino y19US a MO, A IMPLIED. DEER Is 1S bone BY 
ean Bs GOT POGITIONED ON THE MAUR ETLIMOERS IN 
Seb OER cdeal ae REPORTED, Fe MESOERG ARE INCORECT THN The 


sans A in eae CLD REN TWO nari ARE DONE BEFORE ABORTING. IF A *SKE” 
THE WAS 
HEADERS 
sp IMPLIED SEEK IS TRIED AGAIN BETWEEN THE CYLINDERS THAT GAVE RISE 


:#T0 "SKE 
pee FOLLOWING ACTION IS TAKEN WHEN THERE IS NO ‘SKE’ OR ’SIN’ BUT STILL THE 

RO FROM THAT C INDER AND CHECKED. IF THEY ARE 

3 TED. IF THEY WRONG THEN THE EXPECTED AND R RECEIVED 


s Ane Re OR] bs SECTOR 1 IS 
SORE’ BY "REPEAT NG THE WHOLE P SS. (IMPLIED mK 
ene THE TWO CYLINDERS AND READING PSEUDO-HEADER FROM SECTOR 0 OF THE DESTI 


-¥UP TO 12 ERRORS OF EACH KIND (SIN, SKE, BAD PSEUDO-HEADER) ARE ALLOWED. 
SIF ANY E OCCURS MORE THAN l2 TIMES THE TEST IS ABORTED. 
saveusinensenesneneanansontsnsesninesnbonantanastanianediontan 


tary. 
CON. RESET -GO DO CONTROL RESET 


~~ 


"C- oe as, Pil a oeric TEST macy 30(i04%6) 14-JUL-77 08:03 PAGE 4S 
“7? le:27 SEEK PATTERNS: 0-312-0-311-...,USING IMPLIED SEE: 


OZRKLE. 
2247 005616 104416 DRV.RESET :GO DO DRIVE RESET 
005620 o0s004 CLR RY ;FLAG, CLR IF DOING IMPLIED 
IN FROM 0 TO ’ INAOR’ 
jal F GOING FROM ' INADR’ 
O0S622 012737 177465 001476 MOV 8-313, INOX2 13 SEEK PATTERNS 
005630 012700 177764 MOV 8-14. R0 
005634 010037 001504 MOV RO, ERCNTI sALLOW ONLY 12 ERRORS 
40 010037 001506 MOV RO’ ERCNT2 -OF THESE KINDS 
005644 010037 001510 MOV RO; ERCNT3 
00S6S0 012737 O14SOO 001260 MOV #14S00,INADR =; ’INADR’ CONTAINS THE INER 
‘CYL TO WHICH IMPLIED SEEK WILL 
>BE DONE 
005794 1S: TST RY :GOING IN OR OUT? 
001005 BNE 2 ‘GOING OUT, BRANCH 
013705 001260 MOV INADR, RS “SET CYL ADRES BITS FOR GOING IN 
001230 BIS DRIVAD, RS “FORM DISK ADRES FOR I 
BR 3$ CYLINDER 
74 01370S 001230 2 MOV DRIVAD, RS “FORM DISK ADRES FOR OUTER 
;CYLINDER - 0 
4 “ALLOW 2 TRIES WHEN 
005700 012737 177776 001254 3S: MOV 8-2, RETRYe “ERRORS OCCUR 
005706 012737 177776 O0l2eS2 13%: MOV 8-2 RETRY! 
005714 Ol 177777 001256 4S: HOV a-1,RETRYS 
ee 104415 6$ CON. RESET 
726 104416 DRV.RESET 
005730 004737 o06S26 JSR PC, SBRI1 -REPOSITION HEADS TO PRE-ERROR CYL 
l 173516 SS MOV 8-1, ARKWC 
pperas Bt 5a09 173516 MOV RS sen ‘FROM On THIS’ CYLINDER, SEC 0 
005746 01 O26446 173506 MOV sOUTBUF.@RKBA :INTO THIS BUS ADRES 
oos7s4 015737 os7e4 Ooil10 MOV #68, SLPERR iSET RET URN ADRES FOR LUPING 
005762 012777 O0000S 173466 MOV #S, ARKCS :G0, READ 
005770 104421 CON. RDY ;WAIT FOR CNTRL RDY 
005772 001000 173452 BIT 81000, aRKDS ;SIN? 
N06000 001434 BEQ a$ BRANCH 
‘ves THERE WAS A SIN 
006002 004737 016376 JSR PC, ERR GO SET, CYLS BETW'N WHICH SK WAS TRIED 
017737 173440 001170 MOV IRKDS , $REGS 
14 Ol 173434 001166 MOV DRKER, SREG2 
i 20 001602 TYPMSG .MSG1 
13737 001256 001172 MOV RETRY3.SREGY ;SAVE TRY # ON ‘SIN’ 
006034 o000d2e 001172 ADD 82, SREGH 
2 104014 ERROR 14 :AN IMPLIED SEEK WAS TRIED 
;FROM *CYLA’ TO 'CYLB’ (INDICATED 
"IN EROR MESAGE), “SIN’ OCCURRED. 





‘3 TRIES ARE DONE BEFORE 
: ABORT ING 


Sater eit 


L-€, + PEALE RES  QYQGRIC TEST 


0062 1€ 


$301 oe0s0 01409 
boaree 


012777 


00$737 
001006 


boris 


104420 
000405 
00523 

001411 


104417 


104423 
004737 


0012S6 


006552 


000015 


001500 


901252 
001657 


7 0012Se 


000015 


O06S2e 


173276 


ale hsb tedtea7E OR BF inc IMPLIED SEEK 
T z RETRY3 om RE TRIES 
Inc RETRY3 bo 2ND TRY 
7$: INC ERCNT1 ;ALLOW LESS THAN 12 ERORS OF THIS TYPE 
BNE 19$ IF MORE SKIP THIS TEST 
IMP EXTY ‘EXIT THIS TEST 
9$:-_ BIT 810000,9RKER  ;SKE? 
, a co T2 TWEEN WHIC 
sat nt ; G2 : PRPL ie sfEk Wee: DORE . 
HOV RE TRY aSREGH :GET TRY # ON ‘SKE’ 
TYPMSG ; 
— = eee | Int cates 
OCCURRED. 
-2 TRIES ARE _DONE 
CON. RESET =DO CONTROL ees: 
Qs: JSR PC, SBR2 :GO READ 12 HEADERS FROM FROM 
THIS CYLI NOER 8 oGONPARE 
‘OTe T WILL ue USED. 
MOV 815, aRKCS ae an HEIs porn —o 
ABOVE ARE CHECKED, PRINTED 
TST INDX3 WAS THERE aficffFSCOMPARISON 
BNE 10S i nee THERE WAS 
ee ee 
aes ole 
BR 115 
10$: INC RETRY! LLU 2 TRIES £08 x aoe 
BEQ 3 BRANCH, IF THIS Nae END TRY 
MESAGE 15 BES Ponts THEN HORS HERE 
L B, WRONG HORS 
11$:  RESDON poy FOR PREVIOUS DRIVE RESET 
JSR PC SBR -GO, REPOSITION HEADS 


A ty eee RK 11-RKOS io TEST 


OZRKLE . P 


BBIeRECRERSS EAE OR SEBS 


eee? 
> ob 
£UITUe- © 


"26-APR-77 


001657 


000015 


001506 


006614 


001254 
016376 


GC 1260 


eevis 30‘ 1046) 
SEEK 


16$: 


17$: 


19S: 


14-JUL-77 


08:03 
PATTERNS: O-312-0-311-.. 


4§ 


16$ 


83S , SLPERR 
alee 
RETRY2, SREGY 
#3, 4 

PC, ERR] 


PAGE 47 
. USING IMPLIED SEEK 


Bec alts 1 
css ye 


ALSO. BUT 


READ HO 
ae 


ere a ye 7. ALSO. 
;GAVE SKE, THEY WERE INCORRECT. 


;WAIT FOR PREVIOUS DRIVE RESET 
TO BE DONE 


‘oh OM Y LESS THAN 10 ERRORS OF 
-THIS T (SKE) 


;EXIT THIS TEST IF MORE 
;WENT LAST TIME IN OR OUT? 
OUT 


IN 
-WERE HORS CORRECT? 

YES 

; G0 POSITION HEADS BAK ON INNER 
-GO BAK 8 SEEK OUT NOW 


pA geek PATTERNS DONE? 


5 te yg Ay THE NXT 
aa THAT NOW SEEK IS GOING 
& SEEK IN TO *INADR* 


; IF _ THERE WAS NO SIN OR SKE 
ENTER HERE 


; SET A a ADRES FOR LUPING 

:¢ CT PSUEDO-HEADER READ? 
BRANCH 

GET’ TRY # 


;GO_ GET CYL_#'S BETW'N 
;WHICH IMPLIED SEEK (READ) 
;WAS DONE 


MO-11-OZRKL-E, RK11-RKOS —— TEST 


DZRKLE.P11 | 26-APR-77 


ie Obese 013797 


001166 
026446 


001254 
e4e4 006374 000137 005706 


004737 O00655¢2 


001500 
001687 


000015 


ae 


OOSESE 


CRRTERE Bae WR ODR OBES aaRE 


a 


001170 


173020 
173010 
173000 


001166 


‘ate 30( 1046) 
SEEK PATTERNS: O-312-0-311-.. 


els: 


223: 


23s: 


e4$: 


MOV 
MOV 
ERROR 


-ROY 


14-JUL-77 08:03 PAGE 48 
. USING IMPLIED SEEK 


RS. SREG2 :GET EXPCTD PSUEDO-HOR 
BU TBUE. SREG3 § :GET PSUEDO-HDR RECVD 
16 ; LUPLI K C of? gyLe WAS DONE 
3C ), BUT 
; THE WRONG PSEUDO-HEADER WAS 
RETRY2 ; 
21$ 
13$ 
PC, SBRe -GO READ RS (12) FROM 
‘THIS CYLI & CHECK THEM 
iJE NISCOMPARISON INDX3 WILL 
INDX3 : 
225 
. CYLINDER, THEY 
23 «WERE CORRECT 


" {FROM *CHLBY, IN ERROR PESAGE 
ite (inOER HEY eR HERE ALSO. 


RS, RO t NOW READ THE PSUEDO-HEADER 
FROM THE NEXT SECTOR (1) 
:SAME CYLI 

8-1. ARKWC 

8S, ORKCS 

RS, SREGO 

PC GCYL ;G0_ GET CYL # 8 STORE IT IN. $REGO 

BUTBUF REG? — sn 

17 : PSUEDO-HEADER FROM SEC H CYLB 
: (IN MESAGE ) The EXPCTD 
16 REC TA 

ERCNT3 ‘ALLOW ONLY LESS THAN 10 FERRORS 
<OF THIS TYPE (WRONG PS-HDRS) 

EXTY 

RY :SEEKED IN OR OUT LAST TIME? 

19$ -IF OUT, GO NXT INNER CYL 
IF IN K 0 

RY ‘INDICATE. THA THAT SEEK OUT (0) 

1$ “WILL BE DONE NOW 

-TH ROUT N THIS TEST ONLY. 
US UTES ISPD Ba 


NOs bAcOZRKL-E, .RKAA-RKQS QYNMIC TEST 


R 


EEG 
e 


2499 


SBS S Ee nae eaRS 


WON UIE lurur-O 


pa papnoanonnon 


aus 
ee 


] 
l 


T 
i 


Bost? = 1586%d 


O00200S 17cbSe 


007260 


01677e 


. a ere eS Rae 1-1 |USING IMPLIED SEEK 


HTB ReSae OR OrnlBh? BODY YBE bop tone 


1S: fet Ris PC 
-THIS ROUTINE IS USED IN THIS TEST 


WP the Brett ddan eater 


-IF IT IS NOT, INDX3 IS INCREMENTED INDICATING 
‘THE ERROR 


SBRe: MOV STE 
MOV #0U RI 
MOV RO, aRKWe -READ 12 HORS 


YL SRR! AUR THEE oc 
CON. RDY 

JSR PC, CHKHDRS ;GO CHECK IF CORRECT HEADERS WERE READ 
RTS PC -EXIT 


EXT4Y: JSR PC, ABRT 


= 36k Se SE EAE AEE Se SE 4 SE A A a 9 Ek 
SATEST S PERFORM CONVERGING-DIVERGING (IMPLIED) SEEKS 


ss ae 
#0-312-1-31 1-2-310-3-307-------310-2-311-1-3le 
: FROM SURF 








ACE O. 
WHICH THE eee? SEEK IS 






eid l2 ARE NCORRECT , IT THE HEADS 
SRA TEBE AR) SEER Nene} RENEE PRS A cde 


-#CYLINDER. IF THA CYLINDER G GAVE BAD HEADERS IN ALL THE PREVIOUS 
-*#TESTS THE 
;#MAXIMUM 12 ANY EIKO ARE ALLOWED. 
-¥IF MORE T THE TEST IS ABORTED. 
; japeeeedeeayenseeeenconsanennesnennenneasentanesneanenneniessess 

26n RESET -GO,D0 CONTROL RESET 

ORV. RESET -G0,D0 DRIVE RESET 
-(RY)= ‘OUTADR’ TO ’ ' 

wie 29 SERINE FRBR | IREGR®” 1°. cOMRBR 


LOY 





MD-11-DZRKL-E, RK11-RKOS DYNAMIC TEST MACY11 30(1046) 14-JUL-77 08:03 PAGE SO 
OZRKLE.P11  '26-APR-77 12:27 TS PERFORM CONVERGING-DIVERGING (IMPLIED) SEEKS 
Se 012737 177466 001476 MOV 8-312, INDX2 :SET COUNT FOR DOING 312 TIMES 
5 00! a RO ALLOW ONLY 12 ERRORS 
steiee Sp tebe MOV RO, ERCNT : 
005037 001262 CLR OUTADR s INITIALIZE *OUTADR’ TO 0 
co 012737 014500 001260 MOV #14S00,INADR § :INITIALIZE ’INADR’ TO 312 
1S: TST RY ; IN 08 OUT 
oy OBI 00s l Ay FNAOR RS SO1NE OUr ITS FOR GOING IN 
so p30 Bot BIS DRIVAD, RS PRN Se a INNER CYLINDER 
000404 BR 3$ 
42 013705 001262 25: MOV OUTADR, RS :SET CYL ADRES BITS FOR GOING OUT 
3 001230 BIS ORIVAD; RS ‘FORM DISK ADRES FOR GOING OUT 
2S4S 005037 001254 3S: CLR RETRY2 ‘ALLOW 2 RETRIES 
sue 12737 177777 OO0l12S2 4S: HOV #-1, RETRY! ‘WHEN ERRORS OCCUR 
104415 SS: CON. RESET 
1 ib ORV. RE 
737 007224 JSR PC, SBR3 GO REPOSITION HEADS 
012777 177764 172514 7$ MOV #-14, DRKWC ALL HORS FROM THIS CYLINDER 
2553 010577 72514 MOV RS) SRKDA ‘PROM THIS’ CYL, SEC 0 
1 446 MOV @RKBA =; INTO THIS BUS’ ADRES 
012737 006726 001110 MOV S$, SLPERR -SET RETURN ADRES FOR LOOPING ON ERROR 
012777 O0200S 172464 MOV 82005 , ARKCS READ FORMAT, GO 
e958 104421 CON. RDY -WAIT FOR CONTRL RDY 
sees 932777 001000 172450 BIT #1000, IRKDS SIN? 
o17739 ea 001166 MOV , SREG2 pa 
2 Ee a ea 
1172 ADD , SREGH 
? 004737 016320 JSR PC ERR2 ie ee 'N WHICH 
104420 001602 TYPMSG MSG! 
104014 ERROR {4 
? ee OCCURRED ON DOING IMPLIED 
z SEEK FROM »CYLA’ TO ’CYLB’ CIN 
x 005737 001252 IST RETRY ove TRIES? 
7 i pegs 001252 sis Berry! iNOS? RETR a 
000722 BR S$ 
104415 6S: CON. RESET 
4 104416 ORV. RESET 


007066 005237 001504 INC ERCNT1 ;ALLOW LESS THAN le ERORS OF THE 


Sa ras ah a 


a 


BURRS DR CBNUNDRUNNEN coe acon SORURRS ERE REE eae mam 


005704 


000403 
013777 


172364 
000011 


001506 


000040 
006664 


000040 
001476 


001260 
001262 


172350 


001254 


001262 


001260 


172226 
172216 


14-JUL-77 


08:03 PAGE Si 
CONVERGING-DIVERGING (IMPLIED) SEEKS 


BEQ EXTS : I 
TE Pome, gad? Ta THIS TEST 
¢ WHEN GOING TO CYL (IN 
eu TRY 1 POSITIONING HEADS. ON 
MOV RS, IRKDA ort cv I ADRES 
MOV #11, aRKCS : SEEK, GO 
TST. RWS 
BR 118 
-IF NO SIN, ENTER HERE 
8 JSR PC, CHKHDRS -GO CHECK IF CORRECT HEADERS WERE READ 
MOV 84S, SLPERR -SET LUP 
TST INDX3 ‘Bas THERE A HDR? 
BEQ 11s “NO. BRANCH _ 
WRONG HEAOERS NG I 
‘SEEK (RDFMT) 'CYLA’ TO ’CYLB’ 
INC RETRYE ‘ALLOW 2 TRIES 
,RETRY2 
BNE 4§ :GO TRY 2ND TI 
INC ie ‘ALLOW ONLY 12 ERRORS 
JMP EXTS -IF MORE, EXIT THIS TEST 
118: TST RY ; GOING WH cH, WAY? 
BNE 128 SUT , BRANCH 
INC RY Our TE THAT a vase GOING 
0 «0 owwo.cutan «6 toe evel hall tetes 
JMP S -GO BAK & DO IMPLIED SEEK 
“FROM ’INADR’ TO ’OUTADR’ 
125: CLR RY NDICATE THAT NXT TIME GOING 
: QUTAOR’ TO ’INADR’ 
ihe INDKE Seer BLL 312. 342 SOE RROC BACKWARD 
BEQ TST6 IF YES, EXIT 
JMP 1$ JE NOT, GO BAK 8 DO IMPLIED 
SEEK FROM ’OUTADR’ TO ’INADR’ 

S SUBROUTINE IS ENTERED wi A ’SIN’ ERROR OCCURED ON GOING FROM 
iT yea TO’ vB Pos| ned & IN THE ERROR MESSAGE. BEFORE RETRYING THE 
fg Be HOVE T0 BACK TO ’CYLA’. NOTE THAT A DRIVE RESET 

Te te SEEK ‘is BEING BONE FROM *OUTADR’ CYLINDER TO * INADR’ CYLINDER. 
EK IS NG DONE FROM *INADR’ TO *OUTAOR’. 
ial: -GOING WHICH WAY? 
s - TF FROM ICU TADR TO *INADR’, BRANCH. 
INADR, IRKDA 
BR 2 
1S: MOV OUTADR, IRKDA 


MO-11-D2ZRKL-E, 
OZRKLE .P11 


SABIAN SER ORE RE ROMO ae sae eee 


1 ma 


Poe eSB ERREERE 


se Soe 





RK11-RKOS DYNAMIC TEST 
12:27 


’ 26-APR-77 


qe 


016772 


U01120 


MACY11 30( 1046) 
TS 


aie he 8’S Nip ARE STORED STARTING AT ’BUFR’ 
CHKHORS: CLR RO INITIAL FOR 14 HORS 
MOV SOUTBUF Rl ‘INITIZLIZE PTR TO HORS RECVD 
MOV RO sINITIAL PTR 19 SECTOR TABLE 
MOV #BUFRI.R3 INTIAL Ize Fre TO BAD HDR TABLE 
MOV RS, SGOROR 
BIC #1 ,SGDADR ;GET EXPCTD HEADER 
CLR INDX3 “CLR FLG INDICATING BAD HORS 
9S: ,(R1) . R OK? 
Bro i YEG BRANCH 
MOV (RL). (R3)+ -SAVE BAD HDR 
MOV RO, (R2)+ — BAD SECTR # 
MOV 8177777, (Re) TERMINATR ON SECTR TABLE 
INC INDX3 ; SET FE eae eee 
10$: TST (R1)+ ; 
INC RO : 
CMP #14,RO 
9$ -IF NOT, LUP BAK 
RT PC 
EXTS: JSR PC, ABRT 
+ TEST 6 ARETE PATTERNS OF Ti OT ne enn 
: *IN THIS | 5 ARE WRITTEN 0 ON te ENTIRE DISK. 
{WORDS SLT DAS) ARE WRITTEN TEN 
i AOSED 76 Se OPA THE DISK, THE Te, pee ‘Beene PILED UP urTH 
-#PATTERNS 10 BE USED NEXT!’ THIS OVERLAPPING IS DONE TO SAVE TIME. 


Dc 


ee 
Ome 
a 


14-JUL-77 08:03 PAGE Se 
PERFORM CONVERGING-DIVERGING (IMPLIED) SEEKS 


sii, 
Pet Rus 11,@RKCS 
RTS PC 


PSP FLD A ME WELE RU Ee 


“ARE STORED 
ON ENTRY as ISK SS FROM WHERE HEADERS WERE READ. 
iON EXIT: 12 READ PREVIOUSLY ARE STORED STARTING ’OUTBUF’. 


Sai de 
DR Wr 


-#T PATTERN-GENERATOR SUB-ROLTINES ARE USED: 
* i TGENO fey PTGEN1 3.  PTGEN2 4. PTGEN3 
: *THESE are S a. CALLED IN A CYCLIC ORDER: 


: i GEnO-PTGEN-P1 GEN2-PTGEN3-PTGENO-PTGENI........ 
: THE FOLLOWING IS MAINTAINED IN WRITING BLOCKS (EACH 
-%#3 SECTORS LONG) USING ONE OF THE FOUR PATTERN GENERATORS: 


768 


BOS 
Pll | 26-APR-77 12:27 — in STRITE PA TERNS On THE BIS —_s 


;#CYL_ _ SECTORS CYL _ SECTORS CYL _ SECTORS CYL _ SECTORS 


Te 9 iS 0 
: 
i ACL ACe t2 prae } 


—a i ites 


S 
A Be rm. 


é 
5: 
: 
r 













ae ci 


SIF YOU MANT TO WRITE. a P rr PATTERN GENERATOR *PTGENG” 


Sggysaaaaaaooe F 


Wwrur-O 






eae bw 









SAVVY 
















i 
14 on WRITE ISK CHANGE 
is jSLOCAT ION Pati” ' To ver Fa RGA oF Sat TOR O 
ig THO Pa RATING OF PAT TOR 0 
CAT : 10 PT OF PAT-GENERATOR 0 
g tSTé: SCOPE 

MOV 8-14, ERCNT! 
HOV 14 2 
MOV INDX ay 3 
CLR 5 
CLR BUFLG! 
Te FLAGS WHEN SET 
beat MAT = 10 BE USED 
MOV hs oa 
HOV ice Lia bre To he FIRST 
ISR 
MOV 
ISR 90 TE PATRNS FOR 
1S: CLA FA TZE COUNT FOR 4 BLOCKS 
3g:  =«*TST fo. MAIC TO USE 
oY 6sCBBUFL.BUSADR = TUSE. "TOMO F 
: 1 Me INDICATED BY THE USER 
BIS eBIT7,BUFLGL SET FLAG TO INDICATE THAT 
i ‘MATING ON DSK WILL 8 DONE FROM 
‘THIS BUFR (BUF 1) 
3 007470 ococ4OE BR 138 
007472 013737 OOL4YOY 001434 38: MOV PBUFO.BUSADR =; USE _"IOBUFO’ FOR TRANSFER 
‘OR THE ONE INDICATED BY THE USER 
e74g 007500 052737 000200 001410 BIS  SBIT7,BUFLGO ; INDICATE THAT ‘IOBUFO’ WILL 
‘8 USED FOR WRTING ON DISK 
2750 OO7S0& 012737 007514 ODLLIC 138: MOV 84S, SLPERR 











MO-11-DZRKL-E, RK11-RKOS DYNAMIC TEST MACY11 30 PAGE S4 
OZRKLE.P11 | 26-APR-77 12:27 Té Unite PATTERNS On a bteK 
13777 1432 171 4§ MOV , ;SET RKDA 
i 4 3 ROY 8-1400. 
15777 151355 MOV 83, iy TE THE 4 SECTORS ON 
013737 oie 001426 MOV THE PATRNS R PEIN NG WRITTEN 
ee i 1424 001422 oe 
1075) 001414 001426 MOV TO, NXTPAT a TING PA IN THIS 
BR } -"PAT 1"-"PATO"-"PAT 3" -"PATO”- 
1 y ooo002 o01426 SS , NXTPAT 
010044 6$ JSR PC TRUE 
171616 001430 MOV TP RT PGSUBR 
171612 JSR ‘ :GO GENERATE THESE PATRNS. 
2765 , , CON. ROY (3 X 400) WORDS 
140000 171630 BIT 8140000,3RKCS =; ANY gh 
i747? Olb162 oe ies GTYRG - wnetiagh 
init ERROR gl : BRROR On DOING WRITE 
001504 INC  ERCNTI ‘ALLOW 12 ERRORS AT MOST 
Soha 5 010432 io b6$, -IF MORE, EXIT 
c 001000 171572 128: BIT $8179, ARKDS “SIN, ON DOING WRITE? 
O72 GOS? O16162 isk PC, GTYRG 
i é ERROR ee :SIN ERROR ON DOING WRITE 
i 1 Sev RESET 
071 : 001506 ne 2 “ALLOW 12 ERRORS AT MOST 
oC 000137 010432 
EI OUT WHICH BUFFER IS 
FOR USE 
105737 001410 7$: TSTB § BUFLGO Mes P ous OSK-WRITE DONE 
ipen? 901410 aR LGO ve "otk FUG INDICATING IT’S 
o00402 BR 
005037 o01412 gs: CLR BUFLG1 a G INDICATING BUFR 
013737 OO1426 O01424 9S: MOV NXTPAT,PRSPAT S PATRNS WILL BE USED 
Ha 010500 MOV RS RO +P re C g tA BE USED NXT TIME 
116000 O10426 MOVB EPTR(RO),RO T 
e786 774i rao? 900017 001432 10S: BIC iS Se SEC cToR 8 TS FROM DSK-ADRES 
eatin INC So : DONE WITH le SECTRS (3 BLOCKS)? 
artsy BNE 2s’ in ON THIS, SURFACE” IF NOT, GO 
7 000001 901474 BIT #8170, INOX1 WH WHICH SURFACE WAS DONE, 0 OR 1? 
001474 Fe Bx ‘bunt oF TROEKE 
010000 00] +6 


_—_— oe ee 6 ae ee ee eee - _ 


) 14-JUL-77 08:03 PAGE SS 
PATTERNS ON THE DISK 
E 


;EXIT IF DONE 
BIC Ree ;GO TO SUR 0, NEXT CYLINDER 


fe it SRP pT 





118: 





e-* Pb 0 be Bp eee 







0 _ ;SET BIT FOR 
010040 “ 1 ;G0, WRITE PA "ON SURFACE | 
HTH Ro I our WHICH MS , IOBUF1) OR ONE OF 
US URS RC DeTERe Get ae nonce tn 
HAS FILLED UP. = STARTING SS OF THE 


;#BUFFER IS ST IN BUF 8 


ser oval AVAILABLE FOR USE” 









1 : 
hn aa: ghnchos 
He ra737 ObIsoe OOL4HE nov dis,an, 0 OR BR. RORES OF 
ir 001410 1S: BIS 981715, BUFLGO : BOICATED USING BUF 0 
010076 013737 001404 001446 MOV 0, BUFNO STARTING ADRES OF BUFR 0 
10104 900207 RTS Be 
ree 
-#THIS ROUTI SA 768 25) WR WORDS LONG 
In FE — 
SECOND BLOCK 5: (COMPLEMENT OF ABOVE) 
;*#THIRD BL : 
-#YOU CAN eer TS COMPLEMENT) 
: MAK ING S IN THE Oca tons SHOWN BELOW. 
010106 013700 0o01446 PTGENO: MOV BUFO, RO -GET STARTING ADRES OF BUFR 
10112 013701 010164 MOY PTRNO! RI} GET PATRN TO BE GENERATED 
10116 Ol2702 177400 MOV 8-400, Re it THE FIRST 400 WORD BLOCK 
910122 010120 1$ MOV R1, (RO)+ :GENERATE THE FIRST BLOCK 
010124 o0S202 INC R2 -WITH ‘PATOL’ PA 
010126 001375 BNE 1§ "ALL DONE? 
010130 012702 177400 MOV 8-400, Re 
10134 005101 COM Ri :COMPLEMENT 'PATO1’ PATAN 
101 10120 2$ MOV Ri, (RO)+ ;GENERATE 2ND BLOCK WITH 
101 INC R2 :*PATO1’S COMPLEMENT 
010142 001375 BNE 2s “ALL DONE? 
O10144 Ole702 177400 MOV 8-400 Re 
010150 013701 O10166 MOV PTRNOe, Rl ;GET PATRN 19 BE GENERATED 
010154 010120 33: MOV R1,(RO)+ if E 3RD BLOCK USING 
:*PATO2’ PATRN 
010156 ogS202 INC R2 
010160 001375 BNE 3$ -ALL DONE? 
010162 000207 RTS pc : RETURN 
O10164 125252 PTRNOL: 125252 :CHANGE THESE LOCATIONS IF 





Oi0l66 010421 PTRNOe: 010421 :YOU WANT ANY OTHER PATTERNS 


RK11-RKOS DYNAMIC TEST MACY11 30(1046) 14-JUL-77 08:03 PAGE S& 
26-APR-77 12:27 T6 WRITE PATTERNS ON THE DISK 


- #PT 
-#TH NE TES A ( ) 
rule CONTAINING THE FOLLOMING PATTERNS: 


;#FIRST BLOCK-256 WORDS pot FILL 1°S 


-E, 


hy 
- 
‘4 





43 


: 177777 

:#SECOND BLOCK 177776 FILL O'S 
o 177774 

:# oo0000 

:#THIRD CLOCK 000001 FLOAT A 1 
;# 000020 

;# : 

;* 100000 


;#’BUFNO’ CONTAINS THE STARTING ADDRESS OF THE 
BUFFER. 





010170 012703 oo0001 PTGENI: MOV #1,R3 s INITIALIZE PATRNS 
Ol 74 012704 177776 MOV 8177776.R4 

toad l 001446 MOV BUFNO, RO oul STARTING ADRES OF BUFR 
1 l 177760 MOV s-20 Re ‘Tete 

1 19 r 1S: MOV R3, NIT ALIZE PAT PATRN 

1 101 2s: MOV Ri’ (RO)+ 

10214 1 SEC BLOCK USING FILE 1°S° 
1 l ROL. RI 

1 BCC 23 

1 INC R2 

1 001371 BNE 1§ -ALL DONE? 

1 012702 177760 MOV 8-20. Re 

1 Ol 1 MOV RY, Ri - INITIALIZE PATRN 

1 10120 4§ MOV R1; (RO)+ } TE BLOCK 

1 1 CLC ‘USING “FILL 0’S" 

1 101 ROL RI 

1 1 BCS 4§ 

1 o0S202 INC R2 
01 001371 BNE 3$ : DONE? 

l 912702 177760 MOV 8-20, Re -SET COUNT 

l 10301 cs: MOV R3,Ri : INITIALIZE PATRN 

l 0120 6S: MOV Ri; (RO)+ ‘GENERATE THE RO. BLOCK 
l I ASL RI -USING “FLOAT A 
01 l BCC 33 

1 INC R2 

l 1 BNE S$ : DONE? 

1 000207 RTS PC : RETURN 

*PTGEN2 
: eTHIS ROUT 


* GENERATES A 768 (3X2S5E) WORDS LONG 


I 
:#BUFFER CONTAINING THE FOLLOWING PATTERNS: 


wd © he L-E, RK11-RK + TEST MACY11 30(1046) 14-JUL-77 08:03 PAGE S7 
feet 26 APR- oo 3 T& WRITE PATTERNS ON THE DISK 


‘— IRST BLOCK-2S6 WORDS OO00C £0 T PATRN-LOWER BYTE 
# 
+ 
-# 








: T - Y 

| as, BLOCK coun PATRN-HIGHER BYTE 

-% 

;% 

-# 

; THIRD BLOCK ON PATRN-HIGHER & LOWER BYTE 
; ; SpONOT . , 0-377 

- 177777 


;#’BUFNO* CONTAINS THE STARTING ADDRESS OF THE BUFFER. 





010272 o0S001 PTGEN2: CLR Ri - INITIALIZE PATRN 
l 001446 MOV NO. RO 
Bt ai op 18: MOV BY CROs :GENERATE 1ST BLOCK USING 
105201 INCB ORR -USING "COUNT UP LOWER BYTE’ 
001375 BNE 1$ : DONE? 
1 1 CLR R1 
1 101 2 MOV R1. (RO)+ : GENERATE 2ND BLOCK 
1 1 oo0400 ADD #400,R1 ;USING *COUNT UP HIGHER BYTE’ 
1 BCC 2 : DONE ? 
1 1 CLR R} 
l 10120 3$ MOV R1. (RO)+ :GENERATE 3RD BLOCK USING 
1 erat 000401 ADD #401,R1 :*COUNT UP HIGHER 8 LOWER BYTE" 
1 103374 Bcc 3$ “ALL DONE? 
1 000207 RTS PC : RETURN 
PTGEN3 
 eTHIS ROUTINE GENERATES A 768 (3X256) WORDS LONG 
#BUFFER CONTAINING THE FOLLOWING PATTERNS: 
-#FIRST BLOCK OF 256 WORDS: 167356 (COMPLEMENT OF 010421) 
: #SECOND BLOCK 177776 FLOAT AD 
% 177775 
: 077777 
-#THIRD BLOCK COUNT UP HIGHER BYTE 0-377 
3 - 00776 COUNT DOWN LOWER BYTE 377-0 
a 3 
7 : & 177400 
? -#'BUFNO' CONTAINS THE STARTING ADORESS OF THE BUFFER. 


MO-11-0 


OZRKLE . 


we 


O00 VOU fC iwtur-O 


> +> = b-- b-- b— b> = Be p= 





SSNPS 








Bete. ee ee Seni TEST 


© O0O00000O 
RR a 


OooO0000 
rb hh 


3 


222 


> bP b— >= b= bp 
pes Pp bee 
or 


Ee 


QO000000 


2h 





013700 


oss 
610166 


177760 
177776 


000377 


177777 


016772 


MACY11 30(104%6) 
Té Te PAT 


emt oe 08:03 PAGE S8 


WRI ON THE DISK 
PTGEN3: + 9 pws. , RG 
MOV PTRNOS Rl -GET PATTERN 
COM Ri : CONPL ENENT ‘PATO2’ PATRN 
4g: nov RI, (RO)+ “GENERATE 1ST BLOCK 
BNE 4g :ALL DONE? 
>2ND BLOCK 
MOV 8-20, Re 
7$: SEC 
MOV 8177776,R1 
8$: MOV R1, (RO)4+ 
ROL Ri 
BCS gS 
INC Re 
BNE 7$ -ALL DONE? 
:3RD BLOCK 
MOV 8377.R1 
MOV R1,Re ;GENERATE 3RD BLOCK USING 
9g: MOV R1, (RO)+ -*COUNT DOWN LOWER BYTE’ 
ADD R2-R1 :*COUNT UP HIGHER BYTE‘ 
CMP #-1,R1 
BNE as -ALL DONE? 
RTS PC : RETURN 
-SECTOR POINTER TABLE. DATA TRANSFERS ARE DONE IN BLOCKS (3 SECTORS 
jEACH? IN THE CYCLIC ORDER: O-2, 6-10, 3-5, 11-13, O-2, AND SO ON. 
SECPTR: .BYTE 6 
BYTE 3 
-BYTE 11 
.BYTE OC 
EXT&: JSR PC, ABRT 
SFE RKEFSTELELERSTRSEHRESSRERE SALA SEHSHEEELE RE RAE PER RARFRKALELRSLREG 
‘TEST 7 , SOFTWARE COMPARE, WRITE CHECK OF THE PATTERNS 


; #HHETEST 6 gph PATTERNS ON DISK) SHOULD BE DONE BEFORE DOING#s#+ 


: ##4*THIS TEST. 
; #IN Mee Sad Sa ig Magli? Ru DF) ME WITTEN BEFORE (IN THE 


a SOF COMPAR S TAKING PLACE, AN OVERLAPPING 
E Me Mee: On The ae BLOCK. THE READING 


ey 
- OWING IS A DESCRIP 1408 OF HOW ERRORS ARE HANDLED. 

;#IF A ’SIN’ OR ’HE’ OCCURS IT IS REPORTED AND THAT BLOCK 

. IN THIS STAGE OF TESTING THESE ERRORS SHOULD NOT 


: Y , 
-#IF A CHECKSUM ERROR OCCURS, CONTROL IS TRANSFERRED TO 


HOS 
SO aed eORRYL-E. -BKALSREOS QvygAIC TEST = OCY1L SP EARNOL et ale chheaRe ier SP oEueCk oF THE PATTERNS 
os AGAIN. IN ALL 3 Tite ARE DONE. froerfine 
THAT SECTOR S TED AND THE REST 
Pe! GIVE EO REPOR NG AND RETRIES 


pew SE Ue enc 1s 

A Wah HER WE REBAR SUF Gn a 
lh SR PEE Hee 
er Lathete LM Rta ae 
EGAN OCCUR SN ANY COMBINATION. 17 1S RECOMMENDED THAT ALL 
ET, ERROR PESSHGE BE Ce SIGHT INTO THE PROBLEM, OT 


soveselteaseneannnesnantoseasanensustaneanensanenienionsons £EEE 


té17 









the 


tf 
; HWHILE tel DATA COMPARISON ( 


Seon fho eer ee aay 


BBS IAD IN SRE EERE HOR URNUANON oe eo Fo oe ome 


01 oo0004 

1 01 177764 001510 MOV #-14 3 2 AT THE MOST 

Dio Mo oig737 ee otat NOV re, ys HAttow S° ERRORS AT. THE Most 

Sell Mi cee a RS a 

88 = ° <u 
Hen tee ie ee EEE tm eee te pe 
6 = 

1050s het 7riss 0014 MOV 8-626, INDX1 : C T 

oi le 014 CLR I “CLR COUNT FOR 4 BLOCKS ON A TRACK 

10516 Ol 001414 o01424 MOV QT  ;INITLZE PTR TO PATRN GENRTR 

BT DeoS 815539 001230 001450 SRiv PRORES -INITLZE DRV#, ADRES 

010532 005037 001504 BEGIN: CLR ERCNT 1 MEANS THAT RETRIES 

RHEE BAS FUR cone ME: «MN Patt 

l l 1777 1254 MOV 8-2. RETRY2 TRY SF TWRE MISCMP*N 

l 15535 AooS St NOV So RETRY TRY coun 

O10S64 013737 OO14SO 001440 MOV ADRES , WOSKAD DISK ADRES TO WRT CHK WITH 

010572 013737 OOL4OE o01442 MOV PBUF 1 , WBUSAD ritis, BUFR ware O WRT CHK 
ICATED BY THE USER 

010600 012737 17640C 001444 MOV #- 1400, WWROCN ‘J CHK 1 BLOCK=3SECS=1400 WRDS 

010606 13737 OO014SO O01432 READ: MOV ADRES.DSKADR §;DISK ADRES TO READ FROM 

10614 012737 176400 001436 MOV 5-1900, WROCNT ;1 BLOCK = 3 SECTORS = 1400 WRDS 

O622 013737 OC1404 001434 MOV 0,BUSAOR :USE 'IOBUFO’ TO READ INTO 


;OR THE BUFR INDICATED BY THE USER 
010630 Oo00404 SF RDAGAIN 


Ww 
i) 
r 


TOS 
RRC ETE ENN NTe ote eeT TRO TE Pe dor tidaRE COMPARE; RITE CHECK OF THE PATTERNS 


3087 010632 104415 LUPSIN: CON. RESET 
3088 01 lb ORV. RESET 
01 1 BR RDAGAIN 
010640 104415 LUPHE: CON. RESET 
l 13777 001432 170614 RDAGAIN: MOV DSKAOR, IRKDE “READ FROM THIS DSK-ADRES 
£106 13777 ates 170602 MOV WRDCNT , JRKWC THIS 
01 013777 001434 170576 MOV BUSADR; dRKBA =: INTO THIS BUFR 
3097 010664 012777 OD040S 170564 MOV 840S , IRKCS : READ, SSE, GO 
3100 1 O1 1406 OO1446 MOV PBUF 1 BUENO ;SET UP STARTING ADRES 
101 O1 1030 1 001430 MOV aPRSPAT , PGSUBR 
3102 O01 004777 170516 JSR PC, aPGSUBR 160 GENERATE A BUFFER 
iB HOQ_WORDS USING THIS 
1068 010712 104421 CON. RDY one PATRN GENRTNG, 
3107 ;WAIT FOR CNT RDY TO SET 
3108 : (FROM PREVIOUS READ) 
atte otozi4 049000 170534 T IT14. ARKCS ee RORROR? 
aie Btaose rae Bg NBHE : 
3114 010724 012737 O10640 001110 MOV aL UPHE SLPERR 
3115 010732 004737 016214 JSR GET INE 
3116 010736 104023 ERROR 5° -HARD ERROR 
3117 Ol O4415 CON. RESET 
8 it 001510 ERCNT3 -ALLOW 12 ERRORS AT MOST 
1 1 137 Ole21 EXT? -IF MORE, EXIT 
3121 010754 000137 O!1S12 18: JMP FINISH 
1 919760 170464 NOHE: BIT #8179, IRKDS -SIN SET? 
: 1 1417 BEQ NOSIN ;NO 
1 1 1 001110 MOV N, $LPERR 
ea a Bg, eon 
1 104011 1! -SIN ON READ 
3128 O11004 104415 CON. RESET 
3129 O11006 104416 DRV. RESET 
EN eta 001512 are FRCNTS -ALLOW S ERRORS AT MOST 
l 11016 137 012170 EXT7 -IF MORE, EXIT 
3133 011022 000137 O11512 1S: JMP FINISH 
1 il 737 001504 NOSIN: TST ERCNT1 ;CHECKING CSE FOR 1ST TIME 
ug i ths Sot l BNE WRT CHK H 
3137 011034 37 001504 INC ERCNT] INDICATE THAT CSE HAS BEEN 
3138 “CHECKED ONCE 
3140 O11040 ponoo2 170406 BIT #81T1, IRKER :CHECK SUM EROR? 
3141 O11046 001423 BEQ WRT CHK 
3142 O110S0 012737 oO10532 001110 MOV #BEGIN, SLPERR 


JOS 
Tatts OBTTY EPMA HOS BIBS TEST APCYI) SREAD, SOFTWARE COMPARE. WRITE CHECK OF THE PATTERNS 


3143 O110S6 004737 016214 JSR PC, GETING = : . 
a en cae a 

3147 011100 001514 INC RCNTS ‘ALLOW 10 ERRORS AT MOST 
3148 011104 001002 BNE 1$ 

3149 011106 000137 012170 JMP EXT? -IF NORE) EXIT 

TEs Dilile 000137 011654 1S: JMP CSEROR :GO, ICE CSE 

i 011116 005037 001506 WRTCHK: CLR ERCNT2 -CLR FLAG INDICATING SOFTWARE 


Hie! SLE QBRGEZ 000009 couess = gga RVG ‘AT ai ee 0 


1 111 l 901440 1 WCAGAIN: MOV AD,SRKDA = : WRT 1 CHK’ FROM THIS’ Dok Epes 7 
123 111 Bt 3555 101444 eee "MOV WURDCN’ SRKn ‘THIS ® FO WORDS 


3158 O11146 013777 p01442 170306 MOV WBUSAD,3RKBA =; WITH THIS BUFFER 
} 011154 012777 OO0407 170274 MOV #407, ARKCS «WRT CHK,GO, SSE 

3163 011162 005337 001256 DEC RETRY3 - INDICATE WRT CHK DONE 

165 O111 737 001506 SFTCMP: TST ERCNT . SFT BEFORE? 
31 O11] 1060 BNE ERR PE Bet Fine SEER HONE 

! 00 IT AGAIN. OTHERWISE, 
3168 011174 005237 001506 INC ERCNT2 + ANOICR CATE DONE. 

a res. 
3192 ISON OF 

3173 v7 DATA THAT WAS READ FROM 

317s : THE 

317% 011200 012702 001266 MOV 8BUFR, R2 sINDILZE PTR PTR TO BUFR STORING 

3178 011204 012703 001320 MOV #BUFR1,R3 3 STORE pxPcrD rae STARTING HERE 
31 11210 012704 001352 MOV #BUFR2, RY 210 RECVD (BAD 

ae a 

3186 011214 005037 001500 CLR INDX3 as FLAG INDICATING MISCMPRE 

l ll l COMPAR: MOV PBUFO, RO ; INITLZE PTR TO "RECVD DATA’ BUFR 
318 Bt 1S5q Bt s799 eanitt 001502 MOV 8-14. INDX4 UNO RE BIND REPORT le OR LESS DATA ERRORS 
1 11 i 001406 MOV PBUF IR fir PTR TO *EXPCTD DATA’ BUFR 
1 li 400 001260 -} 

si OL 1011 CMPAGAN CHP (RO), (RL) “CORRECT WORD READ FROM DISK? 

130 il 37 012016 JMP MISCMP ; BRANCH IF MISCMPRE ERROR 

l a} ll 1S: TST (RO)+ ; INCRNNT PTRS 

1 11 l TST (R1)+ T WORDS 

3193 011260 005237 001260 INC INADR ‘DONE WITH CMPRISON? 

3134 O11 1367 BNE CMPAGAN -IF NOT, COMPARE THE RES” 

3138 011266 005737 9001500 TST INDX3 -WAS THERE A BAD DATA 

31 - (EVEN AFTR RETRYING) 

3198 011272 001420 BEG WCREPT -NO, BRANCH 


——_—_— en ae ——e— - —_ -- 


KOS 
SORAt OBL E. ARK AAE REDS DYNRN TC TEST OAC a eto tlaRe COMPARE URITE CHECK OF THE PATTERNS 


SON REON SONOS EN 


PN eee a eae ae ESAS RAINS SIS SINS 


012737 


010606 
001516 


012170 
001254 


001254 
010606 


177776 


601110 


0012S4 


170004 


001202 
001202 


001424 
001424 


— o014e4 


REPMSC: 

1$: 

WCREPT: 

LUPWCE: 

ERWCHK: MOV 
BIT 
BEQ 
INC 
BNE 
IMP 

XHE : BIT 
BEQ 
JSR 
MOV 
SUB 
ERROR 
INC 
BNE 
JMP 

1$: JMP 

FINISH: CMP 
BEG 
ADD 
BF 

i$: MOV 





rte SLPERR 


#B1T14, ORKDS 
XHE 


, GETING 
ERCNT7 
ot? 

#B1T0, SRKER 

FINI 

PC, GETINE 

#3; SREGIO 

RETRY3, SREGIO 
RCNTB 

1$ 

EXT? 

WCEROR 


#PAT3, PRSPAT 
82 , PRSPAT 
#PATO, PRSPAT 


;DATA ERROR 
RP Ou 10 ERRORS AT MOST 
;IF MORE, EXIT 


TRY AFTER MISC 
WRT CHK AGAIN 


TAT CHK WITH THIS DSK-ADRES 


THES Bus’ adres: 


;HARD EROR? (FROM WRT CHK) 
;NO H 


*HE ON WRT CHK 

sALLOW le ERRORS AT MOST 
;IF MORE, EXIT 

;WRITE CHECK EROR? 

;GET TRY # 

“SAVE IT FOR TYPEOUT 
-WRT CHK EROR 

‘ALLOW 10 ERRORS AT MOST 
»IF MORE, EXIT 


; THERE WAS NO WCE. poe 
WITH an CHECKING FOR SOFT 


‘g O° CHEEK fx he ox —_— ERS 


-FIND T THE NXT oh © maiie 
Oe ake 
i ABTE NAATR ROUTI a ne IN “PRSPAT 


SBA UG pee eS 


Beep et ee ee Ree Sei RARER ERRRRE ET tty ara 


= pigs 


011562 
11 
ret 
011576 
011602 
011610 
011612 


011620 
0116c6 


011630 


118101 
080137 


—_— 


000139 


000137 


0014S0 


001476 


001474 


0014S0 
001450 


001450 


MACY11 3061 
17 ‘ 
2s: 
BIC 
BIS 
INC 
CMP 
BNE 
DONTRK: CLR 
BIT 
BEQ 
ADD 
BIC 
BR 
DOSURI: BIS 
DONE: INC 
aNP 
GOBAK: JMP 
; CSEROR 
CSEROR: 
MOV 
MOV 
BIT 
BNE 
SUB 
1S: DEC 
CMP 
BNE 
INC 
BNE 


4-JUL-77 08:03 PAGE 63 
WARE COMPARE, WRITE CHECK OF THE PATTERNS 


Bite | 
Bee 


INDX2 
84, INDX2 
GOBAK 
INDX2 


#8170, INOX1 
DOSUR 


84C , ADRES 


es 


820, ADRES 
INDX1 
TST10 
BEGIN 





Re wa 
0 BE USED NEXT 


pa NEW H DTSK-ADRES 
NXT BLOCK TO BE 
ae 4 Tait tober SECS 


) 
-IF NOT, GO BAK & DO THE 
“NXT BLOCK ON THIS TRACK 


;CLR SUR BIT, DO SUR O NXT 


;SET SUR BIT, DO SUR | NXT 
;DONE WITH ALL 626 TRACKS? 


PORT CSE 
; IF CSE WAS IN THE LAST SECTR OF 
HE Fee ary GO TO *WRICHK’ 
HECK THE REST OF 
; THE SECTORS FOR CSE. 


- -—— —_—_——_— -_— 


MD-11-OZRKL-E, 


Bef 
TH 


OOnNWUIL WW 


— >= &~ p— po p— 


a 
« 
54 
zr 


tat ate 


ry 


ya, be. ba. be, ba. be. bee, 


Pl 








RK 
26 


104421 
001401 
104415 
010022 


15064 
005237 


010642 


001500 
001502 


011244 
011274 


be gage ves 


0012Se 


001eSe 


001434 
001436 


167430 


MOS 
1? | “READ, SOFTWARE COMPARE, RITE CHECK OF THE PATTERNS 


MOV R1, Re 
BIC 8177760, Re 
7$: i Gs 
re 
8s: $2, 
6S: MOV R1,RO 
MOV 8-3, RETRY! 
BR a4 
25: MOV #-2, RETRY! 
3S: MOV RO, OSKADR 
SUB ADRES, RO 
INC RO 
4§: DEC RO 
3 Hoos 
ADD , WROCNT 
aR 4 
cs: CON. RESET 
JMP RDAGAIN 
;MISCMP 
MISCMP: CON.RDY 
BIT #B1T14, ARKCS 
BEQ 1$ 
CON. RESET 
1S: MOV RO, (R2)+ 
MOV (R1)+, (R3)+ 
MOV _- (RO)+, (R4)+ 
INC INDX3 
INC INDX4 
BEQ 4g 
IMP CMPAGAN 
4S: JMP REPMSC 


5 82832 
2 
. 

fiz 

g z 


a 
: 


eeaee 
D 
aRar 
ae 
D 
: 
z 
: 
: 


: SAVE 
: INDICATE MISCMPRISON 


HF 12 ERORS, GO REPORT THEN 


;GO BACK & CMPARE THE REST 


LE A A ES I I A A 


, RK11-RKOS DYNAMIC TEST MACY11 30(1046) 14-JUL-77 08:03 


#1000,WBUSAD § ;FORM THE NEW BUS ADRES 
#400,, AHROCN “FORM THE NEW WORD COUNT 


CLRERR: CON.RESET 


: 


MD- 1 1-DZRKL-£ PAGE 65 
0 Pll '26-APR-77 12:27 17 READ, SOFTWARE COMPARE, WRITE CHECK OF THE PATTERNS 
aon SERVICE POE TTING® 
: CE TTING A 
RITE EROR: 
012062 005737 001256 WCEROR: TST RETRY3 :DONE 3 TRIES? 
012066 003035 BCT CLRERR i1F NOT SKIP, OTHERWISE REPORT 
012070 012737 000003 0012Se MOV #3, RETRY3 -SET CONT FOR RETRIES 
1 MOV ,RO N THE LAST SECTOR 
Tits my AF YE WGcR" 
lel BIC #177760, Re D FINTSA" 
12110 3S: BNE ug IF odd fr maa Last OR OF THE 
1211 JMP FINISH REMAINING 
iH = Bg ea tee tit ee 
ot 1 1S: MOV 38 Rl Ap Iee 
lel SUB WOSKAD, RO 
ie HOV R1, WOSKAD -GET SAVED DISK ADRES 
2s: DEC 
BEQ CLRERR 
ADD 
ADD 
BR 
JMP 





1 
1 
| 
1 
l 
1 
1 


; 


] 
l 
1 
| 
1 
1 
1 


ooo0oo 


o 
<£ 
: 
=z 


EXT7: JSR PC, ABRT 


= 
= 
3 
: 
8 
4 
S 


: rest io FFE EAPERRERERSEEERS EEE RARER EL EE EESSL ESSERE LEEPER BRE REALE 
: TEST nies WRITE CHECK ON CYLINDERS 127, 128 
a rab fot WAITE 5 de_UN PA (ONE FOR EACH 
1 128, THEN WRITE 
DOME TO SEE IF THEY WERE WRITTEN 


COR iy. T THAT THERE IS 
: Nu +m , eure CYLINDER. 

On THE CYLINDERS AFTER EACH 

THe FIRST TIME 

N ON SECTOR 0. PATTEKN ’SP2’ ON 
IS WRITE/WRITE CHECK CYCLE 
SECTOR 2, etc. ? IS WRITTEN ON SECTOR 0, PATTERN 
-#:’SP3’ ON SECTOR SO ON. THIS WRITE/WRITE 
= #C cK CY CYCLE is fe TED 12 ef 13°56 


s et 

-#WRITTEN ON ee PATTERN 'SP2’ ON SECTOR 2, 
. . IF YOU WANT PATTERNS 
;#FILL IN THE PAT vOU ONT IN LOCATIONS 


, 
seveondiveneehestensbiiinnsiesnenssnesnesnssesesscssnennsansans 
012174 oo0004 téT10: SCOPE 


Serer etry orien cr ReKERERRKK Cd CaS 






bb 

@oOnuconruli cure 
ras 
$5 
_ 
re wr: 

: Se 
Bee 
“5 
a 
ed 
w 


Pepe veers 


l 
ee 





vr 


~) 


Phe ae 


oy 





ee 


Ei 


E; 


5858: 


a 





+ 


RAMA PHN 


ay 


at 


PSPSPS HS Hh 


ated zane 


re Se 


es a 


167204 
167170 
167160 
001110 


001252 




















MOV 

MOV 

MOV 

3 
mB 
CON. RESET 
MOV RO 
MOV ¥ 
MOV Ri 
MOV ° 
CON. RDY 






est 


4255 
i 


Fo 
Pr 
rT 





CON. 
INC ERCNT1 
BNE 4§ 
JNP EXTI1O 
INC 
In ORG 
CMP 12,R1 
BNE 
MOV sSP1-2,R! 
i sais 
ce) ORS 
BNE 2$ 
Bre Oa 
ete $20’ RO 
CMP #30 
SNE 0 
BIT 87700, RO 
FQ DOWCHY 
roy #10000, RO 
BIS ORTVAD; RO 
BR. WRLO 

: MOV R2.R1 
MOV 8-3, RETRY! 
MOV #10000, RO 
BIS IVAD; RO 
CLR R3 
MOV RO, IRKDA 


E 
2 
R 








el ia Bn 


SET UP ORIVE eB BITS 





FOR QOPING ON ERROR 
pine BOING A WRITE 






>KEEP COUNT 
-USE PATTERNS IN A CYCLIC FASHION 


; INCREMENT POINTERS TO NEXT PATTERN 
; DONE SURFACE 0? 

‘YES, IF CHANGING HEADS 

;SET UP CORRECT ADDRESS ETC. 


:DONE WITH WRITING SURFACE 17 
-NO, BRANCH 
:DONE WITH BOTH CYLINDERS - 127 8 1297 
“NO, DO CYLINDER 128 


:GO BACK 
CYLINDERS 127 AND 128 HAVE BEEN 


-WRITTEN, NOW DO WRITE CHECK 
jINETIAL1ZE POINTER TO FIRST PATTERN 
“RETRY COUNT 

"DO CYLINDER 128 FIRST 


;ADRES THE DRIVE 


Py PT hatha atta atta ttatlattattatlatlatt atl 


44°44) 


t 


* 
; 


S.WWONOrwn£wre-OsE 


A 


I Pe he bt pee pee het ee pee pee 


A 


ti 


> 
ADI 


I 


' 


Py 
fy 


yi 


A 


> 


Prarie 
Atay 


wy 


_ 


4 








Cl2ee4 


= 3011046) 14-JUL-77 


08:03 PAGE & 
WRITE, WRITE CHECK ON CYLINDERS 127, 128 


WCHI: 
1$: 
MOV 
nay 
ERROR 
INC 
BNE 
INC 
Q 
MOV 
4§: INC RO 
ee Pr 12,R1 
BNE e ' 
MOV 8SP1-2,R1 
3: Ge oals 
BLT I 
BNE WAT 
MOV R2.R1 
BIC #17,RO 
BIS 820,R0 
25 CMP R3, #30 
BNE WCAT 
WCLO:  ®IT 87700, RC 
BNE REPEAT 
MOV 87740, RO 
BIS DRIVAD, RO 
BR WCHI} 
REPEAT: TST + 
CMP Re. sSPl2+2 
BEQ TST1l 
IMP DOWRT 


;PATTERNS TO BE USED 






aT Ta spatreRn 


ee His OF DISK-ADRES 
iS gaat PATTERNS IN CYCLIC 


; FASHION 
: INCREMENT POINTER TO NEXT PATTERN 
: DONE SURFACE 0’ 
-NO 
; IF CHANGING HEADS (0-1), SET CORRECT 
: ADRES BITS 


-DONE WRITE CHECKING SURFACE 1? 
-NO, GO K 
; DONE TH CYLINDERS - 127, 128? 
-DO CYLINDER 127 NOW 


;RELOCATE THE PATTERNS ON THE 
:CYLINDERS AND DO IT AGAIN 


; gEXIT 
ifr TEXT) 


: 
S 
cs 


LU eaeeerryerer ee ne 


EBSRRERR ERS Io 





oi 


bmw Ges Boer 
rs 


eee 
re 


| onal aie oie ee 


01 





2726 
2730 
2732 


ha 
hae fe 
pe eo 
- © 
~J o— > > pa ee 


82 
q 8 


* 
7 
" 


016772 


000100 
014106 


177771 


012774 


013052 


Ol3iee 


OC1iS42 001260 


m 
= 


166172 


0012Se 


PAGE 68 
INDERS 127, 128 


OTHER PATTERNS, “CHARGE THESE 
:42 LOCATIONS Th ANY PATTERN 


iS 


— Ce. 
the 
hae 
a 

Pmt Dees Bk Be Bee ee 


OIGUIIIES 


-WORD 01010 
.WORD 04020 
SPi0 is 
SPil1: -WORD 007417 
SPi2: .WORD 041020 
EXT10: JSR PC, ABRT 


2-3 SE 3 EE 3 SE 0 4 a a a a a a a a a a 
SEEK FUNCTION TIMER 


OF THE PROGRAM SEEKS ARE TIMED 
BOTH IN THE FORWRAD DIRECTION (0-312) AND REVERSE(312-0). 


Ae NOTED THAT THE SECTOR COUNTER (IN RKDS) IS USED AS THE REAL 
TO DO THE SEEK TIMI TIMES TO BE RELIABLE 


até UTTHIN® SPECIFICATIONS OF THE DISK 
SRP rr MILT CE RSvREV =3.33 MILI SECS/SECTOR. 








BETWEEN A PARTICULAR SET 
eIT 
pit CLOCK 


: : | 
-#VARIATION: +-30 
°° SRERE PEAKE PERELRFERERERE AERA RERE SEAR LSS ETES SESE 
TST11: SCOPE 
BIT #SW6, SHR - INHIBIT TIMER? 
JMP PL TGRPH 
CON. RESET 
ORV. RESET 
MOV 8-7, RETRY :COUNT FOR 7 DIFRNT SEEK TIMES 
-TO BE RECORDED 
TYPE 65s i TYPE ASC IZ STRING 
j4bSS: “ASCIZ <(15><12>/SEEK rihé SoACe FACTORCD 04 MILI SECS 
; TYPE 675 :: TYPE ASCIZ STRING 
BR bbS : + GET THE ASCIZ 
55878: SASCIZ §«<15><12><12>7 « OF EK «& OF SEEK- 
; TYPE 69S :: TYPE ASCIZ STRING 
set ;;GET OVER THE ASCIZ 
j i698: -ASCIZ <15><12>/7 SEEKS IME SEEKS TIME/<15><12> 
MOV #SIAD, INADR sINITLZE PTR TO INNER ADRES 


—_—-— « _-—_— = ~ - - ~- ~~ ee ee ©  ——— ee - ca -- —- 


EO6 
-77 08:03 PAGE 69 


IMER 


; INITLZE PTR TO OUTER ADRES 


14-J 
K FUNCTION T 
8SOAD , OUTROR 


) 


MACY11 30¢ 
MOV 


Til 


DYNAMIC TEST 
l2:27 


RK 1 1-RK 
26-APR- 


013172 012737 O01Se4% OO0lebe 


MO-11-OZRKL-E 
OZRKLE.P11 


ON HEADS TO OUTER CYLINDER 


166256 REPTIM: MOV @OUTADR , ARKDA 


013200 017777 166056 





Rnannenknnaaaanaadd 


Mnf PNY, 


;GOING FWRD OR REVRSF” 


;REVRSE, BRANCH 





O-UM tT inwor. woo 
Sem Dean dene eee ape hone foe eae Dee 


RABSRRARKS 


FROM CYLINDER 
. RETURN WITH 
af SCALE 
THE SEEK. 


IME ( 
RED F 


a 


one ne TAKEN FOR FRWRD SEEK 
T FLAG FOR DOING REVRSE SEEK 


ST 
; SE 





saan 


;GO DO IT 


3$: 


001474 


005237 001476 
001343 


at ot 
ao 


144 SEEK TIMES 
GO BAK 


I 


ERO 


Bees 


INC 
BNE 


oOo oo 
AAAMaMaeMReMaRRRAAR 


—— + 


—_— _———— <--> 


;SORTING ROUTINE 


FO6 
14-JUL-77 08:03 PAGE 70 


30 (1046) 
SEEK FUNCTION TIMER 


MACY 11 


T1l 


Kos DYNAMIC TEST 
le:27 


Le 


Bil 26" 


"-11- 


OZRKLE 


— 3 r 

» &B 8 B53 — y- 

-— YW - Fw a Ww 

S £ eft .# oe , 

eO es yw ~~ woe @ wn #. wn Ss. & S. - W 2 Ru. 

2 oF eo yt eg Kee ee B°E EE wee. 

Fei, “oe beso =e ss 2.8 Be 

“4 Hee ager 25 ee 5 OB a fs ES: gt 

ee ee eee 
ee ae 

Qunrttt++e es +5+8 n & 

an SSSVEEEEET Eley eudloge Foe 2b 


G 


M& BPeSddddds SOSH SBhS2ha Z2E 2H 


4 
cs: 
6$ 





33R >  - S 
‘ m a Ff 
3 


7 ee Se ez 
% Ramanenerets EeeeeeERe Mii Meee Mek 


ee re od oy ee mk ng md wg 4 wt He eed eg at ed wy 4 ee ee Hd ed ee oy oe oe ad at 4 nt “tt 
2000 BO00O00000000 OOOO000000 828000 GO00000 200 


LS USLUUrrr sere ct ren SMensnit ricci nth s Masts ataugh 


O13S4e 005205 
5 3eN4 001415 





me bee e oP LE ReRS Oynenic TEST +t Re ton TIneR ve, PAGE 71 









013546 012737 G27426 001162 SBUFR11.SREGO ;IF NOT, INITLZE PTR TO ‘SEEK TIME’ 
$1537 Geeeke ODLIEE nov rte eee 
1 026666 001166 MOV -SAVE ’SEEK TIME’ 
3708 i 012737 Oeb746 001170 MOV BBUFR7,S$REG3 #§ :SAVE '8 OF TIMES’ HERE 
3708 013576 000677 BR 1$ :GO BAK & DO SORTING FOR REVRSE SEEK TIMES 
3710 : TYPE OUT CYL 8’S BETWEEN, WHICH SEEK 
il “WAS TIMED. ’OUTADR’ "INADR’ "INADR’ TO ‘OUTADR’ 
zie 913600 404401 COTYPE: TYPE 
371 1 1213 SCRLF 
3714 013604 104401 013612 TYPE 65$ :; TYPE ASCIZ STRING 
15 013610 o00403 BR bug -:GET OVER THE ASCIZ 
16 --65$: .ASCIZ /CYLS:/ 
17 013620 64s: 
i9 Ol 7700 165436 MOV JOUTADR , RO -GET OUTER CYL 8 
a1 oe ASR RO 
1 Ol 006200 ASR RO 
37ee Ol 006200 ASR RO 
1 ASR RO 
1 ASR RO 
1 1 MOV RO, -(SP) 
01 104424 TYPDSS - TYPE IT OUT IN DECIMAL 
3767 013642 sow 013650 TYPE 675 :: TYPE ASCIZ STRING 
1 1 BR 66S *:GET OVER THE ASCIZ 
3729 ; jj 878: ASCIZ /-/ 
eT 5 17701 165402 MOV JINADR, R1 -GET INNER CYL & 
re bees Best - 
13ee2 606201 aeRO 
1 006201 ASR Ri 
1 006201 ASR RI 
013670 O10146 MOV R1,-(SP) 
13672 104424 TYPDSS -TYPE IT OUT IN DECIMAL 
13674 013702 TYPE &9¢ :: TYPE ASCIZ STRING 
1 BR -:GET OVER THE ASCIZ 
374 --69§: .ASCIZ <15><12>7 FRWRD/ 
spy2 013714 68s: 
3 013714 104401 o02101 TYPE  _,BLNKS9 
1 AoW4Ol 013726 TYPE ‘71 :: TYPE ASCIZ STRING 
l BR 205 -:GET OVER THE ASCIZ 
--71§: .ASCIZ /REVRSE/ 
013736 70s: 
9 -TYPE OUT THE '# OF SEEKS’ 8 ‘SEEK 
; TIME * OBTAINED "OR EACH OF THOSE 
Ot ooso00 TYPTIM: CLR RO 
l oos00s CLR RS 
Ot 104401 1$ 
l 1213 SCRLF 
0137He O16046 O26606 BUFRS(RO),-(SP) :GET °s OF SEEKS’, IF NONE (0) 
1375¢ 001424 3$ -SKIP TYPING (FRWRO 
013754 10446s TYPDS -GO TYPE OUT DECIMAL °& OF SEEKS 


SALT UE LIE FAP RUT cH Halthinee OOD PME 7 


;PLOT GRAPH OF *SEEK TIME’ V/S ’CYLIDERS SEEKED’ 


IS PLOTTED OF ’SEEK TIME’ V/S "CYLINDER’. 
-TIME THE SEEKS 
T #SWS,dSWR 


] 12. 
-TIME CLOCK TO TIME THERE SEEKS. AFTER OBTAININ 


3759 013756 104401 TYPE 
l 10 BLNKS2 
1 1 026526 BUFR4Y(RO),-(SP) ;GET ‘SEEK TIME’ FOR EACH OF 
13766 1 TYPOS :OF THAT '@ OF SEEKS’. ‘GO 
37623 “TYPE OUT IN DECIMAL 
913770 O16046 026746 2s: MOV BUFR7(RO),-(SP) ;GET ’® OF SEEKS’, IF NONE (0) 
13774 OO1416 BEQ 4§ :SKIP TYPING (REVRSE SEEK) 
l 005708 TST me 
1 1 BEQ x3 
3769 Ol 104401 002075 TYPE ,BLNK13 
3770 Ol 1440 6S: TYPOS -TYPE OUT IN DECIMAL 
oe fale pent ise 
3355 te nites 026666 a BUFR6(RO),-(SP) ;GET "SEEK TIME’ & TYPE IT 
3774 014020 104405 TYPDS -OUT IN DECIMAL 
3775 014022 OOO40E BR cS . 
ca grades 726 38: TST (SP)+ -POP STACK 
1 INC RS 
3779 014030 000757 BR 2$ 
7 1 726 4s: TST (SP)+ :POP STACK 
l 5705 TST 
1 i004 BNE TIMDON 
3785 O14040 005720 Ss: TST (RO)+ : INCREMENT PTR TO TABLES 
3786 Ol14042 O20027 ooD012 CMP RO, #12 “ALL DONE? 
3787 14046 001335 BNE -IF NOT GO BAK 
oes 014050 062737 oo00002 901260 TIMDON: ADD #2, INGOR s INCRINT POINTER TO _NEXT 
Hai Bi bes Sp Toes AR Ree ‘AT BONES” _ 
3792 O01 001406 BEQ PL TGRPH 
3793 014072 032777 OCO0100 165040 BIT 8SW6 , ISWR - INHIBIT TIMER? FURTHER ? 
37% O14100° 001402 BEQ PL TGRPH - YES, H 
3795 014102 900137 013200 IMP REPTIM ‘GO, BACK AND TIME REST 
37% :OF SEEKS 
3797 
3798 
3799 
3800 
380! 
3807 
14106 032777 OOO040 165024 PLTGRPH: BI :SKIP THE GRAPH? 
14114 109e BNE 46 
10 O14116 137 015224 JMP TSTi2 :YES, BRANCH 
3811 Ol4l22 104415 CON. RESET 
3Ble O141e4 104416 DRV. RESET 
3813 O14l2e6 012737 177465 o01S00 MOV #-312, INDX3 :PERFORM 313 SEEKS 0-0,0-1,.0-312 
2614 O14134 912704 927026 MOV #BUFRIO, RY “STORE ‘SEEK TIME’ HERE 


;PERFORM SEEK FROM CYLINDER O TO EVERY OTHER CYLINDER AND TIME 
oomedly NOTE ’*SECTOR ates vod eh 


et ORE. RK LERKDS DYnenIC TEST MACY11 30( ) J4-JUL-77 08:03 PAGE 73 


Til K FUNCTION TIMER 
3815 014140 005037 001260 CLR INADR :CLR CYL ADRES BITS 
17 O14144 001 165312 15: HOV NADR, IRKDA THE R INDER 
518 Btytes pe37 77 BOS tees BIS BRIVAO ORKDA i ADRES tte Stet SRI ve 
014160 004737 014776 JSR PC, TIMSEK :GO TIME THE SEEK FROM CYL 0 
-TO THE ABOVE CYL. RETURN WITH 
*R3 CONTAINING *SEEK TIME’ IN MS 
TORE "SEEK 
yt 910324 MOV R3, (RY)+ EEK T 
141 017777 165270 BIC #12777, ARKDA -SEEK BACK TO CYL O FOR 
014174 012777 OOO0011 165254 MOV 811, aRKCS ; TIMING AXT CYL 
{Bud FO}. ROE ‘Matt FOR Rowe ROY. 
T.RWS *WAIT F /W/ Y 
l 062737 OO00040 001260 ADD INADR FORM NXT C S 
014214 005237 001500 INC INKS 
014220 901351 BNE 1$ 
:PLOT A GRAPH USING ’SEEK TIMES’ RECORDED BEFORE 
014222 PLOT: 
14 014230 TYPE 65$ :s TYPE PE ASCIZ TR NG 
14 BR 64 
ue ji858: -ASCIZ 18> <12><12> «129 HOR axis - SEEK Time” - MILI SECS/ 
Bi4e74 104401 014302 TYPE 7S 11 TYRE ASCIZ STRING 
14 000423 BR § OVER THE ASCIZ 
--67§: .ASCIZ <15><12>/Y AXIS ~ CYLINDER SEEKED FROM 0/<15><12><12> 
014350 b6$: 
014 104401 TYPE 
O14 002103 BLNKS7 
14 p0S000 R -TYPE OUT THE TIME UNITS 
14 010046 iS: MOV RO, -(SP) > (MILI ree? FOR THE X-AXIS 
14 24 TYPDSS -LIKE THIS: 
14 TST RO (0 20 30 4Y0..... 
14 1411 BEQ 25 
14 900144 CMP 8144, RO 
1 BGT 4g 
4 000170 CMP #170,RO 
014400 002412 BLT 
i 10 at 
BR 35 
14410 104401 25: TYPE 
4412 O02111 BLNKS1 
O14414 10440] 4g: TYPE 
14416 002107 BLNKS3 
1 000012 23: ADD #12,R0 
1 4 BR 1$ 
14426 10440! cs: TYPE 
ots 001213 SCRLF 
014432 10440] 
014434 002103 BLNKS7 
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fr 


SLES CESS Er Lt LLL Le RES SRE 


NOW UIE OC 


pot Re ne ba St be ee 


as 


SENT 


Pll 


ais 


Oo 2000 
a2 
£ro 
3 
228 


os ee ee ee 


$8 





OQOOOOOOOOOCOOOOO000OO00 


4610 
4614 
4616 


012700 


: 


Oo 
5 
be 


Seance tsa 


= 


177763 
0144S0 


000020 


00004C 


014S2e2 


027026 
014736 
000004 


OZRKL-E, RK11-RKOS DYNAMIC TEST 
26-APR-77 12:27 


164450 


164436 


MACY11 30(104%6) 14-JUL-77 08:03 PAGE 74 
Til SEEK FUNCTION TIMER 


PLA: MOV 8-15,R0 : TYPE OUT THE X-AXIS MARKERS 
TYPE 6S$ :; TYPE ASCIZ STR 
BR 64s ::GET over te Retz 
j 4858: -ASCIZ /1----/ 
64s: 
INC RO . [----]----]---- 
BNE 1$ 
:IF SW 4 IS SET THEN TYPE THE COMPLETE GRAPH. IF NOT TYPE THE SMALL GRAPH. 
Be |OUR S—<«  " 
iT NOT” TYPE SMALL GRAPH 
SMGRP: CLR R 
iS: ey BBWS, aShR i SKIP REST OF GRAPH? 
TYPE : IN THIS. GRAPH SEEK TIMES ARE 
SCRLF Bite aa ie 
BY? 3, 4, iy 14 16,18, 20, 
$e 45°34 
MOV RO, -(SP) 200, 603. 
TYPOS 
TYPE 65S 3 TYPE asc12 STRING 
BR b4§ “GET OVER THE ASCIZ 
Fea ASCIZ /-/ 
] HOV RO, Ri “FORM THE ADRES OF ’SEEK TIME’ 
MOV BUFRIO(R1),R3  ;GET THE SEEK TIME 
JSR PC, PLTPT OT IT 
CMP #4_RO ‘PLOTTED UPTO CYL 4? 
BLE es : YES 
NC 
BR 1$ 
23: CMP 824,RO ;PLOTTED UPTO CYL 20? 
BLE 3$ 
° ie 
3S: CMP #310,RO :PLOTTED UPTO CYL 200? 
BLE ug 
a0 #5,RO0 
us: CMP #312,RO -PLOTTED ALL CYLS? 
BEQ o$ 
ADD #2, RO 
BR 1$ 
cs: IMP TSTi2 


;IF SW 4 IS SET THE COMPLETE GRAPH IS PRINTED OUT. IT GIVES TIMES FOR 
-SEEKS FROM CYLINDER O TO ALL OTHER CYLINDERS (0,1,2,3...202). 


a9 
é 


SRRRE LS eco Ueee EE Eee EE cere et 


3 


014710 


1471 
1471 


014716 
01 





014736 


000312 
015224 


000310 


000144 


IC TEST 


164270 


MACY11 30(1046) 14-JUL-77 08:03 PAGE 75 
Ti SEEK FUNCTION TIMER 
CMPGRP: CLR RO . sINETLZE COUNT 
&- MARKER 
HOY 8BUFRIO,R2 : INITL Boh TO oF SEEK K tines 
SCRLF 
BR 3$ 
2s: at #SHS, ISWR :SKIP REST OF GRAPH? 
ieF12 
INC Rl -TYPE OUT Y-AXIS MARKER ’CYL 8’ 
BNE 4§ -IF REQUIRED 
MOV #-S,R1 
3S: MOV RO, -(SP -TYPE "CYL #’ ON Y-AXIS 
TYPDS (IN DECIMAL) 
BR S$ 
4§: YPE 
a BLNKS6 
TYPE 65$ -: TYPE IZ STR 
BR Pht :: GET oven te RANG, 
--65§: .ASCIZ /-/ 
b4s: 
MOV (R2)+,.R3 sGET SEEK TIME 
JSR PC PLTPT -GO PLOT’ THE POINT 
TYPE 
SCRLF 
ine a ALL DONE? 
#312,RO0 
BNE 2$ -IF NOT, GO BAK 
6S: JMP TSTl2 
;PLTPT 
: THE ROUT INE 1S CTE WITH R3 CONTAINING HORIZONTAL AXIS 
: COORDINA 
“PLOT THE eT ME ON THE GRAPH. IN KEEPING WITH NORMAL 
; CONVENTION LESS THAN HALF THE CELL W WIOTH Is 
: CONST AS FALLING UNDER THE PREVIOUS CELL 
‘GREATER THAN OR EQUAL TO HALF THE CELL WIDTH tae UROER THE NEXT CELL 
“EX: IF SEEK TIME IS 11.5 MS, IT’S BETW’N 10 & 12, BUT 
“HENCE IT WILL BE PLOTTED AS 12 IF SEEK TIME IS 10.8 
IT’S BETW'N 10 8 le, dUT < 11 HENCE IT WILL BE PLOTTED’ 
-AS 10.0 MS 
PLTPT: SUB #310,R3 T HOW MANY BLANKS TO 
BLT 75 TNS Rte TO PLOT THE POINT 
“NOTE THE FIRST CELL = 0 MS 
YPE 
BLNKS1! 
PLTPT 
7$: ADD 8144, R3 
BLT 


° 


i Re BRR BERNESE CEOS SSSR RRS Reeed AAR aaa aa aay 2 


=] 





015106 
015110 


014772 


0014Se2 
000400 


164402 


oral 30(104%6) 14-JUL-77 08:03 PAGE 76 
Tl SEEK 


FUNCTION TIMER 

TYPE 

BLNKS1 
gs: 

TYPE 65S :: TYPE ASCIZ STRING 

BR ::GET OVER THE ASCIZ 
j ABS: -ASCIZ /X/ 
b4s: 

RTS PC 

OUT THE TIME REQUIRED TO SEEK TO THE CYLINDER 
j SSS Tones PEstl COUNTER IS USED AS A REAL TIME CLOCK TO KEEP TIME. 
: CYLINDER TO BE SEEKED FROM THE PRESENT POSITION. 
: RETURN: “a re eS THE SEEK TIME IN MILI SECS. SCALE FACTOR = 6.91 
WI I 
TIMSEK: MOV Re, -(SP} i Bis ta HOEY MARK TO" 1HOEX MARK } 
R3 -40 MILI SECS FOR EACH RE 
RKDS,R1 

1$: aR1. Re 

BIT ,Re -WAIT FOR SOK 

BEQ 1$ 

BIT #B1T3,Re2 T FOR SECTOR 10 SO THAT 

BEQ 1$ :U CAN SHAR WAITING FOR 

. , SEC 0 

2s: MOV aR 

BIT 00 Re :WAIT FOR SEC OK 

BEQ 2s 

CMP @R1, R2 

BNE 2$ 

BIT $17,Re -WAIT FOR SEC 0, INDEX MARK 

BNE ;AS SOON'’AS IT IS SEC 0, ISSUE 


=A SEEK & START TIMING 


; ISSUE A SEEK, START TIMING 
THE SEC C 


CON. RDY * WAIT FOR CNTRL RDY 
3$: MOV dR1 Re *GET RKDS 

BIT #400, Re WAIT FOR SOK 

BEQ 3$ 

CMP Re, aR ; INFO CORRECT? 

Br #100, R2 :R/W/S RDY SET? 

BNE SKDON -IF YES, BRANCH 

BIT #17, Re : WAIT FOR. SEC CNTR TO MOVE 

BEQ 3 -FROM O T 
4§: MOV @R1, Re 

BIT #400, Re ;WAIT FOR SOK 


MD-11 ru way — TEST 


OZRKLE 





assess aessennnnennnnaminnmmnnnsnresiss: © 


oe 





000017 


0005 1e 


001223 
OOlee3 O012e2e4 


003760 


MO6 
MACYLL 301046) | 14<JUL=77, OB:03 PAGE 77 


SEEK FUNCTION TIMER 


Rep ORD. aR 
BNE 4§ 
BE HO=R ACA SYRR FFT. SEEK ove” 
BIT #17, Re eat KEEP TRACK OF SEC 
INC R3 anueets 
BR 3$ -GO BAK, KEEP TIME 
cS: IT 817,Re -CHECK, IS IT INDEX MARK -SEC 
SKDON if Not, adp . 
INC R3 -IF YES, INCREMENT COUNT 
. -SEEK DONE, SAVE RKDS-SEC COUNTER. 
"MOV 814, -(SP) ON THE STACK 
HOV Fs . cae Mat ut CAND ON THE STACK 
MOV (SB) +, (SP) Sisk 
MOV (SP)+'R2 °S OF THE PRODUCT 
BIC #177760, Re seex. Tota TIME=(IN DECIMAL) 
Re HERE To RCL FRCTOR 
MOV #512,-(SP) -:PUT THE MULTIPLER ON THE STACK 
MOV R3, - (SP) -:PUT THE MULTIPLICAND ON THE STACK 
JSR PC.a T ;; CALL TPLY INE 
MOV (SP)+, (SP) : : DISRE a5 
MOV (SP)+’R3 - + GET LSB’S OF THE PRODUCT 
ADD 8245, R3 -ASSUMPTION THAT EACH SECTOR 
- TAKES 3.3 MILI SECS. IF THE 
; NUCH DIFRNT 
1500 RPM ( ). THEN 
: WOULD NOT BE AN 
“ACCURATE TIME CLOCK 
MOV (SP)+,Re : POP 
RTS pc * RETURN 


s  RELLLLLLELLLALELLELELLELLALLLLALLA ELLER LLELEL LALLA LALA RELEL EELS 
-kTEST 12 END PROGRAM 

-#THIS IS NOT 9 TEST BUT IS JUST A LINKAGE 

-#PROVIDED TO TEST ALL THE DRIVES. 
jttacenbaceeetes RELELEESESRELLHESRRSELELRRFEREESRAE SERRE REE TEA RRE EER SS 


téT12 


I DRVDON 
BTEOP: CMPB $$ DRVDON,DRIVS 
BE +6 


Q : 
JMP NXTDRV 
.SBTTL END OF PASS ROUTINE 


:  EXREESERELEREEHESERESEFE LEE ERESS RAE ELE ER ERE EER ERE ESSE ARERR E RRS 
 LTINCRE MENT THE PASS NUMBER (S$PASS) 


DZRKLE-PlI- 


Seas ae 


RIBRSS 





ewe i 
bb ee 


Lect 
| cham aedaned 
OBBIR 


a fmt ee es Bae Pee Bes Ro ee 
4 4) » 4 


atts 
ue 
ua fi 
slik 1 
ue 8 
4118 Ol 
41 
41 
41 
41 
41 
41 
41 
41 
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, RKLI-RKOS DYNAMIC TEST 
26-APR-77 12:27 


001100 


MACY11 30(1046) 
END OF PASS ROUTI 


ETOP ho Base aiiuce 






A MONITOR GO L's IT 


;#IF THERE ISN’T JUMP TO ST3 


SEOP: 
SCOPE 
CLR 
aie 
DEC 
SEOPCT: .WORD 
BGT 
MOV 
SENDCT: .WORD 
SEOPCT 
TYPE 
MOV 
TYPE 
$GET4Ye: a 
T 
SENDAD: JSR 
NOP 
NOP 
NOP 
$DOAGN: 
JMP 
SRTNAD: .WORD 
: .BYTE 
: .ASCIZ 


STSTNM 


81 
(PC)+ 


SDOAGN 
orem 


eas, 


Seue RO 
SDOAGN 


PC, (RO) 


a(PC)+ 
te 


, SPASS 


(PC)+ 


(SP) 


NO6 
14-JU.-77 08:03 PAGE 78 


ARERE SoS8R°%S ABC Ta RBABER, 


;;ZERO THE TEST NUMBER 
OWT ALLOW NEG. NUMBER 
YES 

:;RESTORE COUNTER 


11 TYPE SEND Pass 9 


3 | SAVE SPASS F 
Trea Rect WITH SIGN 


;G0 TYPE DEC 
ioe NON! OR ADDRESS 


;NULL CHARACTER STRING 


<ib> r 48, 7END PASS’ #7 


© US Sr 


j 
1 
1 
1s 
1 
1 
1 
1s 
1 
1 
1 
1 


OOOOOOOO00oo 


== b= pan pee pee pee Pe 








ooo 200900 


oe od pe ee pee bee bee 
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; COMMON SUBROUTINES AND HANDLERS 


-SBTTL éSRIS 


PRES | ae 





se ae 





; NT oes LIKE: 
; SECS RE 
;AA RA=BAD SEC 8 BBBBBB=BAD HEADE 


TRY8= Y 


(R2)+,-(SP) 
8177777, (R1) 
i$ 


RS ,-(SP) 
8160037, (SP) 


aes 
"a 


-SBTTL ESRI3 
sESR13 
; THIS ROUTINE iS USED WITH 


"ERROR 13°" TO TYPEOUT OUT 


iORARtING BT TBUPR "THE CORRESPONDING GRO READERS. RAVE 


:BEEN STORED STARTING AT ’BUFRI’. 


Rl ON My 
Ce mer 
;GO TYPE OUT BAD SEC # (OCTAL) 
ary 
: NKS 


;GO TYPE OUT BAD HEADER 


; TYPE OUT EXPCTD HEADER FOR 
; THAT CYLINDER 


;;POP STACK INTO Re 
;;POP STACK INTO Rl 


ERROR 
N STORED 
RS CONTAINS THE EXPECTED 


é 


- “2. ——— rr ee tee i - —_—_— = we) - 


CO? 
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MACY11 30( 1046) 


ESR13 


26-APR-77 12:27 


ee RK11-RKOS DYNAMIC TEST 


;HEADER FOR THAT CYLINDER. THE TYPEOUT LOOKS LIKE 


4 guaanaMns 





>SUR O OR 11” 








flee 001162 
000 
04401 
000404 


Bos 


MOV SREG1 
3 
0 
PC 


&# TO WHICH SEEK 


;SUPRES LDG 0°S 
; RETURN 


PE 3 DIGITS 


; TYPE CY 


(HF) 


es 001164 
000 
000207 


a el 


Marucnrunas 


-SBTTL ESR2S 


~ 


DO? 
MD-11-DZRKL-E, RK11-RKOS DYNAMIC TEST MACY11 30( 1046) I14-JUL-77 08:03 PRGE 81 
lé:27 ESR2S 





OZRKLE.P11 26-APR-77 
Wey 015620 010205 ESR2S: MOV R2,RS sSAVE ADRES OF TERMINATOR 
‘Be 015622 012702 001266 MOV eBUFR, Re : IN PTR T TABLE STORING 

015626 012703 001320 MOV 8BUFR1,R3 : INT TO "EXPCTD’ DATA 
Be 015632 012704 001352 MOV #3UFR2, RY -INITLZE PTR TO ‘RECVD’ DATA 
01 o20000 163274 1S BIT 8SW13, aSWR - INHIBIT TYPE OUT? 
1 1076 _— IT 
l 10 1 :T /LF 
l 1213 SCRLF 
015652 163712 001404 SUB PBUFO, (R2) :GET WORD # IN BUFR (0,1,2... 
4255 O156S56 O062!2 ASR (Re) 
4o56 015660 011246 MOV (Re) ,-(SP) ;WHICH WAS BAD. NOTE YOU 
‘CAN HAVE THE ACTUAL MEMORY 
4258 ‘ADRES BY ADDING ’ IOBUFO’ 
4959 -T0 THIS 
4260 O1 104403 TYPOS GO TYPE WORD s THAT WAS BAD 
1 004 .BYTE 4 
t a ive 
bise7e ecto BLNKS3 2 BLANKS 
OL 72 01234% MOV (R3)+,-(SP) GET EXPCTD DATA 
15674 104402 TYPOC -GO TYPE IT 
4268 015676 10440! TYPE 
8 olerae OLSdHE aOV 
1 MOV (R4)+,-(SP) :GET RECVD DATA (BAD) 
1 Ol Tose TYPOC +85 TYEE IT 
l 104401 TYPE 

4273 15710 002110 BLNKS2 

ie75 015712 912700 000400 MOV #400, RO :GET THE DISK ADRES FROM 
16 Oel 2s: CHP (Re) , RO :WHICH THIS (BAD) DATA WAS 
1 000400 ADD #400, RO ; 
1 002400 CMP #2400, RO 

4 1 1371 BNE 2$ 
4 15734 000300 3S: SWAB StséRRO 
4283 pier ae 005300 DEC RO 
ioe 015740 063700 oc14sO ADD ADRES , RO oeee re NS THE D 

F nsaticn Tie (BAD } 

128 015744 010037 001170 MOV RO, SREG3 
4 015750 004737 oO16220 JSR PC, BRKDA a ABOVE DISK ADRES 
4 ‘INTO CYL®, SUR®, SEC# 

1 015754 013746 001174 MOV SREGS, -(SP) ;GET THE CYLS 
4 1 104403 TYPOS 
4 1$7be 003 -BYTE 3 ‘ONLY 3 DIGITS 
4 1 000 "BYTE O -NO LEADING 0°S 
4295 015764 10440! TYPE 
4236 015766 002107 BLNKS3 


- 
¢ 


RK11-RKOS DYNAMIC TEST MACY11 30(10%6) i4-JUL-77 08:03 PAGE 82 
26-APR- -77 1e:27 ESReS 







01374 001176 MOV SREG,-(SP) :GET SUR 8 
104403 TYPOS 

001 BYTE 1 1 DIGIT ONLY 

000 -BYTE 0 

l 

02106 BMS 
01374 001200 MOV SREG7,-(SP) -GET SEC8 
. OTE + DIGITS 

Nis ‘ ; 

ons BYTE 
005722 TST (R2)+ - INCREMNT P 
o20205 CMP Re, RS ; TYPED OUT ACL BAD DATA 
001306 BNE 1S IF NOT LUP BAK 

TYPE 
MSG13 .* ’ 

0137% 001254 MOV RETRY2, -(SP) -GET RETRY COUNT 
062716 000003 ADD a3, (SP} -FORM THE RETRY NO 
10440 TYPOS ' -TYPE I 

000 BY 3 0 
000207 si TS care -IF YES, RETURN 


eee ve TYPING OUT MESSAGES & DATA 
ot SW13 IS SET, THE TYPEOUT IS 
IWMISTTED. 


; OCA 

; THE ME ITEM Asta) YF 

MS: % THE ASCII MESAGE 
a: PS DATA HEADER 


DATA 
0 

-IF ’DT’ IS OT ats A Is T9 PRINTED USING THE SUBROUTINE 

: INDICATED IN OF THE T 
032777 O20000 163066 MSGE: BIT #513, ISUR : INHIBIT TYPEQUT? 
001012 BNE l : IF YE EX T 
11 001116 MOV (SP) : GET OF ’MESAGE’ CALL 
162737 OO00002 001116 SUB a2 :STORE IT 
11 o00000 001114 MOVB @(SP) SITENE -GET MESAGE # (INDEX TO ITEM TABLE) 
ae 017446 JSR PC a#ERR ;G0_T0 PERRTYP’ & TYPE OUT 
062716 000002 1S: ADD 82, (SP) “ADJUST RETURN ADDRES 
ooo002 RTI “EXIT 

-THIS ROUTINE IS USED FOR TYPING OUT ASCII MESSAGES. BEFORE 

; THE MESSAGE IS TYPED SWi3 IS CHECKED & IF SET THE 

-TYPEOUT IS INHIBITED & AN EXIT I é 

-THE CALL FOR THIS ROUTINE IS “TYPMSG", AN ENCODED 


SoRMCE BIle OR APR eee 


4354 
4355 
ie pe 
4 16106 020000 163024 
439 GIeLTS  peiooS 
4360 916116 017537 OD0000 016126 
W362 11S. do000E 
4363 016130 062716 00002 
4365 016134 oo0002 
4366 
4367 
4368 
4369 
4370 
: 
ua Bletae Gaerne iepeS 
Wave Being boeSte 
437 O16150 006316 
4377 016152 006316 
4378 016154 O00316 
4379 016156 112637 001172 
4380 
4381 
4382 
4383 
4384 
4 
‘ee 
4388 016162 017737 163270 001162 
4389 016170 017737 163260 901164 
4 16176 017737 163250 OO1166 
4391 016204 017737 163254 OO1170 
4392 Oléel2 000207 
‘4 
4394 
4295 
4 
4 
2 
4 
16214 004737 OleL62 
a o10is 
1 01 001202 
13701 001170 
ieee Here 177760 
016244 Ol 
4409 O16246 i 


a J 

F ra 
MACY11 30(1046) I14-JUL-77 08:03 PAGE 83 

ESReS 


TRAP INSTRUCTION 
: THE POINTER Mi T on TO BE TYPED IS LOCATED IN THE 
;WORD FOLLOWING ne SPYPHSG™ CAL 


TY.MSG: BIT #SW13, aSWR s INHIBIT TYPEOUT” 
MOV a(SP),1$ ; ‘ TO ASCII MESSAGE 
a SER 
2§: ADD #2, (SP) S, SKIP OVER 
POINTER ON RETURN 
RTI -EXIT 
TH T XTRACTS THE CYLI # FROM RKDA STORES IT 
Teer ey THEN RS RKCS, 43 OS ROA TO SREGD SREG1, SREG2, S$REG3 
RR eeaars che) Hae OP ge otette arr 
air (SP) : SH er 'b pire OF CYL ADRES TO LO BYTE 
ASL (SP) 
ASL (SP) 
SWAB sé SP) 
MOVE (SP)+,$REGH UP STACK 
ny ROUTINE ies nero be co THE C ONTENTS OF RKCS, RKER 
i CTIVELY. gress S 
i Pic but THERE “Bie RESPECT THE TIME OF ERROR 
siti MOV BRKCS , SREGO -GET RKCS 
MOV > SRE : k 
MOV : : 
MOV , SREG3 ; RKDA 
RTS EXIT FROM THIS ROUTINE 
TE ROUTINE SAVES THE CONTENTS OF RKCS IN SREGO 
cRMER IN SBEGI, AAD eRe, SL ACE AND SECTOR B 
“AND SAVES THEM IN “erecs. SREGS, SREG7. 
GETINF: JSR PC, GTYRG 
BRKDA: MOV RO; -(SP) 
MOY ORB’ =P} 
MOV 8$REG7+2, RO 
MOV SREG3,R1 
MOV R1 
SIC #! R2 
MOV Re, -(RO} 
ASR Ri 


- 


pe Bre to Aba ee bore TEST eet 30(1046) 14-JUL-77 08:03 PAGE 84 


4410 016250 006201 ASR Rl 
4411 01 1 ASR Ri 
wats Bt Sat Rie 
4414 QO] 177776 BIC #1 Re 
4415 016264 010240 MOV R2,-(RO) 
sit? Sieeey bite my Rae 
q4i8 1 177400 BIC #177400, Re 
4419 016276 010240 MOV R2, -(RO} 
uy ot l SHAB Ri 
445i Ol 1 177770 IC #177770,R1 
4y422 0] 010140 MOV R1.-(RO} 
4429 016310 012602 MOV (SP)+, Re 
4494 016312 012601 MOV (SP)+'RI 
4495 016314 012600 (SP)+'RO 
“a 016316 9000207 RTS pc 
448 
4499 
4430 
4433] 
4432 
4433 sii .SBTTL ERR2 
es ; THIS ROU ROUTINE GE “ tp CYLINDER NUMBERS BETWEEN WHICH (IMPLIED) SEEK 
yy :WAS DONE. (Ra) Ich ES SEEK FROM ’OUTADR’ TO ~INADR” 
4437 5 (RAD = 1 INDICA ON EXI GO 
4438 “FROM WHICH ah SRE INITIATED. MOS REGI CONTAINS CYL # ro WHICH "SEEK WAS DONE 
1 013737 001260 O01162 ERRe: MOV YL : 
1 737 016434 JSR ¥L T CYL# FROM IT 
ree Giese fara goiaes SOLES =| Ray Sage Sa re 
8 
bipee aura Biles a te Ec ee 
l 704 TST :GOING WH WHICH WAY? 
016354 001407 BEG - *OUTADR’ TO " INADR’ BRANCH 
1 01374 001162 MOV GO,-(SP) “EXCHANG CYL” TO GET’ 
1 013737 OO1164 001162 MOV G1, $REGO “CORRECT ‘TO’ & FROM’ CYLS 
1 001164 MOV (SP)+’ §REG! 
l 1s RTS : RETURN 


EL gras an odes a ee vl SI 
DON eg oat A 


ee aioe tin la Got ie Ca a 


oie sie ne ae Pe: ae” co cer cv 
704 TST jMis GOING IN OR OUT” 
MOV 


64 Weed 1162 001164 Ay 4 SREG! 
b4e6 Socos> «BOL TeS mee OSRESD” 


ace creracegasas es tase ese" 


ee 


abd OBRKL-E. .BKAL-=RKQS QYYQMIC TEST 


4466 
4467 
4458 
446 


EEEEE 
Wz cl 


BaRRERRER IIIT 


Et 
= 


PER ORSON CORR IRAPER ERS 
StS tpt tt ptt St StS St 


FATHIIIS 
@onomul £ Wr 


RS 


in 
= 


016424 000207 
016426 005037 
016432 





paians 


-_ 
~- 
oO 





Sees gS 
i 


—— C)— 
—_ 
_— 
nated 


001164 


001162 


162762 
162746 


162724 


162362 


pee y 2 30(1046) i4-JUL-77 08:03 PAGE 98S 


RTS PC 
1$ CLR SREG! 

RTS Pc 

-SBTTL GCYL 
: Pye ROUTINE EXTRACTS THE CYLINDER NO. FROM THE DISK ADDRESS 
“CONTAINED IN " SREGO" THEN STORES IT Back N ’SREGO’ 
CYL: Nov R0,~($°) ;PUSH RO ONTO STACK 

BIC 81 , RO : # BIT 

- o GR UE BFtstF Plcbew 

ASR RO -SHIFT CYL BITS RIGHT 

% i 

MOV RO, SREGO :STORE CYL # IN SRE GO 

MOV (SP)+, RO -POP RO FROM STAC 

RTS pC : EXIT 

.SBTTL DRV.RESET - DRIVE RESET ROUTINE 


“OR. .SBTTL RESDON - WAIT FOR DRIVE RESET TO BE DONE 
;THIS ROUTINE DOES A DRIVE INE ccee on THE 
;RKDA. MULTIPLE ghey 


OR THIS ROUTINE ARE PROV De 
- IF THERES IS NO R/W/S SBby ae S WITHIN CERTAIN TIME) 
-A NORMAL EXIT I /W7S RDY DOES NOT SET ERROR IS REPORTED. 
DR.RST: CLR GS - INITIALIZE THE COUNT 
ORIVAD, IRKDA 
V #15, IRKCS :DRIVE RESET, GO 
CON. RDY 
S.D0+4 
RES.DO: CLR GS 
1S: BIT #100, IRKDS :DID R/W/S RDY SET? 
MOV #-10,-(SP) -PUSH COUNT ON SP 
INC (SP) -COU’ T IT DOW 
ay (SP)+ ;POP UP S$P 
INC SREGS -IF NOT WAIT 
BNE 1$ : WAITED LONG? 
BIT #5W13, ISWR 
BNE 2$ 
M 1 
TYPMSG G7 
MOV (SP). -(SP) 
SUB #2, (SP) 
TYPOC 
2s: RTI 


~11-D7R 
abt ear 


4S22 
4523 


bas 


Sp SIR Ht Sp RB Se 9 9 St 4 py tS 
FREE Riaameeberon 


Fe 

3 
B2 
pts 


85 
535 


mer OF 
—_ 

—_— 
et 
ner 


a3 


10? 
6 PARSE BIBBMUE TEST RBRIAS UPS) onde ec PB ae Bh 


-S8TTL CON.RESET - CONTROL RESET ROUTINE 
“CON. og gerTl CON.RDY - WAIT FOR CONTROL READY 


Riau manera ae 


ult de Ca ede 


ins GIVEN. ais 
botsg er 9 THIS ROUTINE. 


HE TRAP DECODER LOCATED AT ’STRAP’. 


; CN. RDY 
“THE CN.RDY ROUTINE IS CALLED BY USING CNT. RDY WHICH IS A TRAP 
- INS TION WITH ITS OWER ODE L 
: THIS NE WAI THE READY BIT TO SET AND WHEN IT 
“SETS EXITS OUT. IF WITHIN A CERTAIN TIME CNTRL RDY 
“NOT SET AN ERROR IS REPORTED. WAITING TIME IS 883 MS FOR 11/20 
-175 MS FOR 11/745 WITH BIPOLAR ene 
AN RST: $1, aRKC I A CONTROL RESET 
MOV $-300 :SET UP COUNT 
BR CN. ROY+4 -SKIP OVER CN.RDY 
CN.RDY: CLR SREG3 
18: TST8 = ARKCS sDID CNTRL-RDY SET? 
BMI 2g -YES, EXIT 
INC $REG3 - WAITED LONG? 
1S :IF NOT, GO BAK & WAIT 
TYPMSG 
ere 6S TYPE ASCIZ STRING 
BR 4 ::GET OVER 4 ASCIZ 
i 4858: SASCIZ <15><12>/PC=/ 
MOV (SP). -(SP) 
SUB #2, (SP) 
TYPOC :GO TYPE PC IN THE MAIN PROGRAM, 
RE ERROR OCCURRED 
TYPE 675 : . TYPE ASclZ ST 
BR 66$ ::GET OVER THE Rect 
jj878: ASCIZ / RKCS=/ 
V JRKCS, - (SP) :GET RKCS 
TYPOC -GO TYPE IT 
2s: RTI -RETURN FROM THIS 


;ROUTINE TO THE MAIN 


BoRRCES 


4S78 
4S79 


4601 


SESSSESESTESES EELS é 


ob b= bb 
OO NCUIL WO 


BARK 


pROBaRS 


OgREL~ E. PK AAS REDS | Qyygnic TEST 


l62eSe2 


162172 


000400 162122 


040000 162112 


07 
YA SOC . eon “a7? 02 PAGE 87 


; PROGRAM 


~SBTTL TST.RWS - WAIT FOR R/W/S RDY 


AARP URE AB ben tr cers. ie » teed DOES NOY Seton's 


;WAITING TIME APPROX. 1040 MS FOR tve0. 208" MS FOR 1174S 


TSTRWS: CLR TI 
13: art 1100 aRKDS 
BNE eg 
INC Ht ae 
BNE 
TYPMSG ,MSGl2 
TYPMSG NSG? 
MOV (SP). -(SP) 
SUB #2, (SP) 
TYPOC 
es: RTI 
SBTTL TEST ABORT ROUTINE 
: ABRT 
ABRT: TYPE MSG3 
move  $TSTNM,-(SP) 
TYPOC 
RTS PC 


;COMMON SUBROUTINES & HANDLERS 


-SBTTL SCOPE HANDLER ROUTINE 
Seprnnenara tenes anncpnnennsanenenssceuntasssesese sess 


Ears Rout ROUTINE CONTROL 


bid ee ty 


TESTS. IT WILL INCREMENT 
STNA). INTO THE DISPLAY REG. (DISPLAY<7:0> ) 


BY THIS ROUTINE ARE: 


. s ESMDS= | 
;# SCOPE gpl 
SSCOPE: 
Gace ann EST FOR IN LCE, 
BNE SOvER A TEST? iF YES, SKIP OVER 
1$ IT IT14, ISWR THE Re BBN ll am, OE TEST 1" ™ 
: LOOP ON. PRESE 


-e888RSTART OF CODE FOR THE XOR TESTERSSeeH 


$xTSTR: BR 


;;IF RUNNING ON THE “XOR™ TESTER CHANGE 


Mead ete, + PKALSREDS BYRBNTC TEST 


— 
000004 


ees ean 


ee ie 

464 1 

4644 Ql 001103 

ge Ne seo 

4647 017102 

e495 ea 001110 001106 
HA TR cove 

4651 nici 1 aie 

Ss BIS Slee But 

4654 017134 005037 001204 

4655 017140 112737 000001 1115 

eS gis fie; Bie 

4658 017160 000002 

4659 

4660 

466 1 

4662 

4663 

4654 

4665 

es 

4668 

er 

oF a 

4 BI IEF coo 

4675 017170 001775 

a 17 001102 16174e 

Ee all 

4679 017210 104401 001206 

4680 017214 005237 OOlile 

1 017220 011637 001116 

BYERS Gg, mmo e178 

A ee 

4688 017244 162737 001116 

4689 017252 117737 161640 001114 


Ss: 


SOVER: 


SSVLAD: 


. 





#81109, aur 
4§ 





BR AE RRR 


THE one VECTOR 
ACK BeTER . TIME OUT 








pt 
1% 
9 


SERRVEC iz 
‘. THE XOR’ 
Ba oP 


tee ‘LOOP RODRESS TO LAST SCOPE 
;;ZERO_ THE ERROR FLAG 


, SLPAOR 





kee gop 

+ 
nove ns ae i ONLY ALL Ou ONE) ERROR ON NeXT Per 
HOV Api + 2055  Paboe To ADORE SS 


s  RARERLEEAEAELELLLALE LASALLE ELLER ELLE LE ALLE LALLSLERELE LEA EAERE 


.SBTTL ERROR HANDLER ROUTINE 


ASML SL 
 #SMOS=| 

Sr Rea 
sor 


Ss: 


Bt ERROR TYPEOUTS 


ON ERROR 
CYL ERROR TO PREVIOS ’SCOPE’ STATEMENT 


;CHECK FOR SOFTWARE SWITCH REGISTER REQUEST 
SERFLG ;SET THE ERROR F 
7$ ;DON’T LET THE FLAG GO TO ZERO 
STSTNM SPLAY 


tle 


SBELL 
SERTTL 
(SP), SERRPC 
sSW2, ISWR :DROP THE DRIVE? 
:Si NOT SET, SKIP 
SERTTL, #6 “MORE THAN & ERRORS ON THIS DRIVE? 
6$ ‘YES, OROP THE DRIVE 
#2, SERRPC 
ISERRPC , SITEME 


————— re ee ee me oe ewe ee =. a -_- 


DeRKLE-PLI "2b-AR?? eso? 


017260 


Wee 


a 


oy ES ee 


10 
14 
6 


bh B= bh Om po pe 





Samy gydeseess 


Pe be ee pete 
: 
ewe 


aaRene 






<= 


OoooooCOoOOm 
Se Sense ied ooo 


22 22 
ee 


i tnd He 2 


Oo 
So 


pa ee 
ht bene 
oo" ~ 


~ 

ine 
— 
o 


oe 


i 


ceensaee 


020000 1616Se 


Ooi213 
000042 


161624 


010000 


001106 
001000 


001110 
p02064 
001230 


017422 


001224 
015232 


001213 


001114 


001116 


001116 


161610 


161574 


a 
6 Ril? OD Pa 


33: 


4§: 
6$: 


bis?’ 


ERRTYP: 


1$: 


BIT 


AarPrPoS shes Be lista FL 


ze 


a3 


$3 2 Agnes 


i 


#SW13, 2SWR 

TYP 
ave, one 
+1 











ug 

SLPERR, (SP) 

ORVPTR, ~(SP) 
‘oes 

ORIVAD, -(SP) 


DR 
(SP)+, (SP)+ 
BTEOP 


SCRLF 
et) 
8S ITEMB, RO 

i$ 


SERRPC , - (SP) 


SERRPC , - (SP) 


6$ 
RO 


RO 
RO 


LE EE 


;GET POINTER TO DRIVE # 
;CLEAR THE DRIVE PRESENT FLAG 


;GET THE DRIVE # 


sTYPE IT OUT 
>: TYPE ASCIZ STRING 
-:GET OVER THE ASCIZ 


sDECRMNT # OF DRIVS PRESENT 
“RESTORE STACK 

-EXIT 

3 CARRIAGE RETURN" & LINE FEED” 
-PICKUP THE ITEM INDEX 


; IF ITEM NUMBER IS ZERO, JUST 


;T THE PC OF THE ERROR 
SERRPC FOR TYPEOUT 


EO TYPES-OCTAL ASCIICALL DIGITS) 


;GET OUT 
;sADJUST THE INDEX SO THAT IT WILL 
: WORK FOR THE ERROR TABLE 


0 


11-0 
LE. 


£Hfftf—ifgcirce 


£fit 


£itee 


8833 





ala 


a 


bee pee bb bb be be pe Be fe fe = pe a ar 


Be SIR AeaReaR 


2 
Be 


ototat 


SRRORREES 


— b= pee 


20000000000 C2ECOO 
S2ECCEO808NNDD GOOORD00R00200 [00 


Sie 


= 
Po pe 
NO 


af 


oi 


° 
3 


002122 
017532 


001213 


001116 


017662 


017670 


pre-e, Le Suc vest 


16137e 


MACY11 30( 1046) 
ERROR HANDLER ROU 


4§: 


10S: 


JSR 
BR 


(RO)+, 28 
3$ 


0 
Sti, ase 
10$ 


(RO)+,4S 
S$ 


TB, RO 


0 
SCRLF 


tee 


9$ 
#2, RO 
(RO) , RO 
7$ 
yee 
ii 
@(RO)+, -(SP) 
(RO) 
6$ 

BLNKS2 


PC, a(RO) 


SERRPC, -(SP) 
6$ 


PC, DMPREG 
6$ 


MO: 
14-JUL-77 08:03 PAGE 90 
TINE 






(fa ae 
wrt 1S 0. {REPOINT TO “DATA” 


; 190 hye “BATA TAB ER 


T 
:GO TYPE THE DATA 
sRESTORE RO 
»"CARRIAGE RETURN” & LINE FEED” 
s RETURN 


(RO)+ FOR TYPEOUT 
--OCTAL ASCII( a DIGITS) 


282 Bie 
Fs 

a8 
> 


4 
mp 
| ae} 


aaah 


we 
i 4 


;GO BACK, TO THE EXIT POINT 
“FOR ’ERRTYP 


- DMPREG 
“DUMPS OUT ALL RK REGISTERS WHEN SW 11 IS SET 


DMPREG: 


TYPE 
BR 


65S 
b4§ 


;; TYPE ASCIZ STRING 
‘:GET OVER THE ASCIZ 


ee 


332222 BEBRR ERR aNRaRne oS SEAS GRRE AES 2 











er J 
NO? 
MD- 1 1-DZRKL-€ MACY11 30(1046) 14-JUL-77 08:03 PAGE 91 
0 : ERROR HANDLER ROUTINE 
pages: -ASCIZ <15><12>7 PC RKDS RKER RKCS RKWC RKBA  RKDA 
“MOV SERRPC, - (SP) 
TYPOC 
mv ve Ag =P) 
1S: MOV 3(RO)+, -(SP) 
TYPOC 
TYPE Se 
CMP , #RKDB 
BLE 1$ 
MOV (SP)+,RO0 
RTS PC 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


= IRED TO CHANGE A IG-HIT BINARY MIGER 10 A CDI 


Tus ROuTIN 15 ROUTINE 1 IS (hee? Tt 0 eee A 1p git a TO a Teh he 


re He PY dir OP He eee oh “HILL ALWAYS BE 


MOV NUM, -(SP) - «PUT INARY NUMBER ON THE STACK 
= a TYPOS *?G0 Ot ROUT INE 
_— MOV RO, -(SP) RO TACK 
MOV A -(ep) st R1 ct TACK 
MOV Re, -(SP) ::PUSH Re ON STACK 
MOV R3,-(SP) ;;PUSH R3 ON STACK 
Y.tCeAaOD csp) Stee Fe eee cur TGH AND SIGN 
leiden aah 
NEG it Roe THE BI NUMBER POS 
MOVB #°-, 1(SP) --MAKE THE ASCII NUMBER NE 
1S: CLR j§ ZERO THE TANTS INDEX 
MOV K,R3 - - SETUP a 3 T POINTE 
- nOvE a’ | (R3)+ : > SET THE FIRS CHARACTER TO A BLANK 
MOV SDTBL(RO),R1 § ::GET THE CONSTANT 
3S: SUB l, ; SFORM THIS BCD DIGIT 
BLT Ug -:BR IF DONE 
Inc Re :: INCREASE THE BCD DIGIT BY 1 
ug: ADD R1,RS “ADD BACK THE CONSTANT 
TST R2 || CHECK IF BCD DIGIT=0 
BNE S$ FALL 
TSTB 2 s«( SP) ::STILL DOING LEADING 0’S? 
BMI 7§ ::BR IF YES 


— A ——— A Ee -_--_ —_— 


; 
‘ 
' 


RKDB/< 





2: 


~~ 


BOS 
ORY TO DECIR. a TYPE ROUTINE 


(SP) 


‘ 






3s se. 
is es 177777 Af ).-1(R3) + : 
3 Bt 8’ i i. 33 not A DIGIT 
TST 3 
000010 . 3 
BGT a 
MOV : 
Bs: F378 i So LSD CHER TO ASC NON-ZERO? 
177777 177776 oe a Temithayor FOR TYPING 
iy 2 
y MOV 
MOV 
MOV nto el 
me fs 
22 po0oG2 000004 MOV 
aot RTI yi TO USER 
Jct SOTBL: 10000. 
cl 1000. 
100. 
10. 
SOBLK: .BLKW 4 





a 
: 
: 
A 


iROITINE 10 TYPE AGCIZ MESSAGE MECGAGE MGT TERMINATE WITH aD 
; ROUT INE TO TYPE wel sey MUST TERMINATE W 
ROUTINE WI by TERS ‘eo 
NO ks a. 
= #NO LLS CONTAINS THE F 
j NOTES: ILLC CONTAINS THE 





SSCALL: 
#1) USING A TRAP INSTRUCTION 





if , MESADR ::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
: i TYPE 
“i ME SADR 
;* 
105737 001157 STYPE: TSTB  STPFLG -:IS THERE A TERMINAL? 
oo002 BPL 1S --BR IF YES 
HAL T -: HALT HERE IF NO TERMINAL 
BR 3$ : s LEAVE 
l 1S: MOV RO, -(SP) : SAVE RO 
1 000002 MOV delSP) ,RO ::GET ADORESS OF ASCIZ STRING 
il 2$ MOVB (RO)+,-(SP) : : PUSH CHARACTER TO BE TYPED ONTO STACK 
001005 BNE 4§ ::BR IF IT ISN’T THE TERMINATOR 
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( ;;IF TERMINATOR POP IT OFF THE STACK 
120: 60S: (8P)3. RO 33 RD 
oo. 33: a2 (SPO T RE URN PC 
20 4S: HT, (SP) f IF <HT) 
aa , (SP) ;;BRANCH IF NOT <CRLF> 


(SP)+ am ee aad 


BA. ite 


a a eT 
7. 07,07, 08,15 
‘ 

Atata? 

| 


ya*ja 


S$: 


-— =e = ae | 
} 


ate 6$: 
SNULL , -(SP) - . NEEDED 
7$: 1(SP) : TYPED? 
;;6R THE NULL OFF OF STACK 


STYPEC : G0 ) 
SCHARCNT ;;D0 NOT COUNT AS A COUNT 
; sLOOP 
sHORIZONTAL TAB PROCESSOR 
(SP) sREPLACE TAB WITH SPACE 


020430 ss: se PC C tt TYPE A 
000907 020474 ~~ ITB 67: Sonne ae iF nor AT 


STYPEC: Ab 


BRUPR ee 4 





fee 
N 
— 
o 





rr? i" b- 


rp: 
Pee pee 8 
RRRKeaR 
R 
<£ 


i’ 


’ 


= 
7 
— 


ma 1166 160506 TPB ;:LOAD CHAR TO BE TYPED INTO DATA REG. 
ira 162766 000015 oo0002 pe ) ae CHARACTER A CARRIAGE RETURN? 
tg 1003 BNE :: BRANCH IF NO 
020474 CLRB 3s YES" CLEAR CHARACTER COUNT 
1 o00012 nmnsace 1S: } its CHARACTER A LINE FEED? 
1402 BEQ “BRANCH IF YES 
105227 >: COUNT THE CHARACTER 
000000 SCHARCNT: . 0 :: CHARACTER COUNT STORAGE 
000207 STYPEX: RTS PC 


-SBTTL INTEGER MULTIPLY ROUTINE 
= ab Sk S62 3 a a ab a a 9 a a a a A a a a a a a a a a a a a 


ARRAAAAAAAARAAAAAAIS ASHI Sss sag aaasanacagagansgagssssss F 


CALL 
: i MOV MUL TIPLER 
i HOV RULTIPLICHVO, " (SP) 
1368 - TURN PRODUC IS ON THE STACK 
;# 





ureter. RK11-RKOS DYNAMIC TEST 
OZRKLE .P11 12:27 


es 
4978 
: 
: 
z 





Seo 


bb = ba 
WO swre- 


Sonia kegespepeperagenercsces 


, 


=—\_ | = 
* af 4% 


‘ 


- 
} 





" 26-APR-77 
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INTEGER MULTIPLY ROUTINE 


;# STACK PRODUCT 


2. FY we 










SMULT: 
MOV RO, -(SP) 
MOV Ri, -{ 
MOV -(5P) 
CLR -(§P) 
MOV 1e(SP),Rl 
BPL 1 
4 if na, POSTIVE 
1S: Noy 14(SP) Re PCT IPL Ef - 
aa 
REE oe, a P POSTIVE 
2s: MOV 817. ,-(SP) nines 
3s: ge a CAND = 0 
ADD R2, RO 
4S: ROR RO or TION "etic PARITIAL PRODUCT AND 
DEC (SP) aL a S OF THE MULTIPLICAND BEEN DONE? 
CMP (SP) +, (SP) NPRODUCT BE NEGATIVE? 
BEQ S$ 3H 0 EXIT IF NO 
Nes RO :: YES--SO MAKE IT SO 
SBC RO 
cs: TST (SP)+ ;:CLEAR SIGN INFO. OFF OF STACK 
MOV RO, 18(SP) -:PUT THE PRODUCT ON THE STACK (MSB’S? 
MOV Ri, 1O(SP) ;; LSB’ 
MOV (SP)+, Re ;;POP STACK INTO Re 
MOV (SP)+'RI “POP STACK INTO RI 
nov (SP)+, RO : pop STACK INTO RO 


-SBTTL TTY INPUT ROUTINE 
5 RESELEEE EERE EERE EERE EERE EERE EERE EERE REESE EERE SELES 


o LSB 
STKCNT: .WORD OQ ee OF ITEMS IN QUEUE 
STKQIN: .WORD 0 i INPUT POINTER 

: .WORD O > OUTPUT POINTER 

: BLKB 1 -: TTY KEYBOARD QUEUE 


TTY KEYBOARD INPUT QUEUE 
URN ON THE KEYBOARD INTERRUPT 


1-RKOS DYNAMIC TEST MACY11 30(10%6) 14-JUL-77 08 PAGE 95 
T ROUTINE 
















































MD-11-DZRKL-E, RK1 
ZRKLE.P11 26- APR. 77 12:27 TTy INPU 
;# RE TURN 
7 BEE cos, ST BF RS oa eae ae 
1 14 3 NOV SEU tea oe hr Sif 1 POINTERS. 
012737 020672 MOV IN TI THe KEYBOARD VE 
009200 000062 nov TKSRY a8TKVEC 
012777 OOO10C 160254 MOV 8100, aSTKS TTY KEYBOARD INTERRUPT 
000207 RTS PC TENABLE TO CALLER 
TRUE sevice pe try sexeoem pore 
Ht READING Th She YER EROS FROM THE I BUFFER PUTTING 
11774% 160250 éTKSRV: MOVE a5n,-(3P 1s PICKUP THE CHARACTER 
716 177600 BIC 8¢C17?, (SP) 18 I THe JUNK 
1 000007 1S: CMP {SP}, 87 --IS ITA G? 
1004 BNE es IF 
022737 000176 001140 CMP SSWREG, SWR 21S -SWR SELECTED? 
001500 BEQ 6$ -:GO TO SWR CHANGE 
es: 
000001 d20612 CMP #1, STKCNT THE QUEUE FULL? 
rated BNE us a 
120730 104401 001206 TYPE RING THE TTY BELL 
lot 005726 TST (SP)¢ ; 3 CLER CHARACTER OFF OF STACK 
wt 1 000022 3s CMP (SP), #23 s Sionca If ho -S? 
3207 4E 160172 at S :: DI TTY KEYBOARD INTERRUPTS 
02075S< ST (SP)4 + OFF STACK 
120754 1 160164 31S:  TSTB g -: WAIT FOR A CHAR 
320760 1 BPL 31 3s LOOP UNTIL ITS THERE 
Jot ete 160160 MOVB -(SP) es CHARACTER 
020766 16 177600 BIC 870177, (SP) + 7-BIT ASCII 
e077 00002 1 CHP (Sp )+, bel i318 11 A CONTROL-0? 
e 000100 160136 mov #100, aS TKS + TTY KEYBOARD INTERRUPTS 
: 0206 12 328: INC Z ; ; COUNT THIS CHARACTER 
000140 CMP (SP), #140 $3 CASE’ 
BLT 4 IF YES 
627 000175 CMP (SP), 8175 ::1S IT A SPECIAL CHAR? 
BGT 4§ ELA, YES 
16 OO0040 BIC #40, (SP) : : MAKE CASE 
F 77 177554 4g: MOVB (SP}+,aSTKQIN ;:AND IT IN QUEUE 
Aone 14 INC STKGIA :: UPDATE THE POINTER 
620614 o20621 CMP STKQIN, SSTKQEND ;:GO OFF THE END? 
1 001003 BNE g :: BRANCH IF 
1 2737 020620 o20614 MOV #STKQSRT,STKQIN ;:RESET THE POINTER 
1 tae cs: RTI : + RETURN 
: - SELSSSRESAASSSRSASSSASSRSSREESSERSERESREAARAFERARRAEHSSERERRBARRDG 
‘  #SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
y 


SLEPT sas ae Tes 


Stic 00017& 001140 
l 001104 

soar 210% 10777 160% 

es BL 117 sso 

S050 ello Oie7ie 77a 

SOS2 021116 001300 

5033 

S034 

5097 

epee 021120 123727 OO1134 000001 
S100 Gelle& OC1674 

a ThE 005726 

site Gell Gora? ceeoe 

ein Oell4Ne 112737 O00001 001135 
S106 O21150 104401 621727 

S107 GeliS4 104401 021734 

5108 1160 O1374%6 000176 

5109 1164 104402 

5110 1138 104401 021745 

Sll1 Qe2ll 00SO46 

Be BU TEES ome 

B13 ps ii7e l 

Sii6 021204 117746 157736 

ee 021210 O42716 1 

118 

otto 

1 1214 O21 oo000es 

Hg Bias ie 

Sige Geiger 1OMN0! gai72e 

L 021232 000757 

] 

l l 1] 000015 

S158 peiem Geiser 

2120 12s oo gs 000004 

etah l l 000002 157662 
5133 l 000006 

aig l 1 ppleks 

l l ] ll 000001 
S136 Qel274 o0i002 

S137 Ge1276 012777 oOooIopc 157640 
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ce cE The Test F CHE IN SOFTUARE SUIITCH REGISTER TRAP 
ise G, NR ry GFT-SWR SELECTED 









are - EXIT 
STB ies -:IS AQ WAITING? 
BPL iil nO 
MOVB ee : YES 
BIC 810177, (SP) : : MAKE iT 7-BIT ASCII 
ore i.e iT MoT” SO IT in, THE TTY QUEUE 
+S NO EXtT 
ss PEEASESELAPSTAELEPEFRRAS LA RERSSERGEELS HS RESALE GSES DSE REESE SEE LES 
:RCONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY Y INTERRUPT asenY ICE 
 SCONTROL-@ BEING TYPED, a0 THe SME T WARE SUTTCH REG NG SETECTED. 
és: “out , $1 me eRe He WE RUNNING IN ISTER Bern 
SEQ 25 ; BRANCH IF YES 
it feghcwe§—ietoen See four Se 
CLR SOLS tit INTERRUPTS 
MOVB  81,SINTAG : + SE T MODE INDICATOR 
TYPE §,SCNTLG :sECHO THE CONTROL-G ({G) 
SGTSWR: TYPE ss CURRENT CONTENTS 
a to 
TYPE | BRoner FOR NEW SWR , 
19S: CLR -(SP) ; CLEAR COUNTER 
ns: fe pee Gea heae 
BL % :: IF NOT TRY AGAIN 
MOVB § aSTKB.-(SP) ::PICK UP CHAR 
BIC 8¢C177, (SP) -:MAKE IT 7-BIT ASCII 
9$: CMP (SP), #25 ;;15 17 A CONTROL -U? 
ae i LU YES Echo PONTROL U (tu) 
20S ADD 6. SP + PREVIOUS INPUT 
BR 19§ :LET’S TRY IT AGAIN 
10$: CMP (SP), #15 -:IS IT A <CR>? 
BNE 16S + 
TST 4(SP) -: YES, IS IT THE FIRST CHAR? 
BEQ i$, :3 IF YES 
MOV 2(5P), SW + 
tt a i te EEO CER) ANDY <L 
' CMPB ss SINTAG, #1 :: RE-ENABLE TTY KBD INTERRUPTS? 
BNE 15$ :: BRANCH IF NOT : 
MOV #100, a$TKS ::RE-ENABLE TTY KBD INTERRUP™S 


a" 


Bae LUTE LIP UB E77 OOD em 


S138 921304 o00002 18S: ARTI : ; RETURN 
5139 SET: 737 020430 168: JSR PC. STYPEC : ECHO CHAR 
S14) Ge 136 — , ne Ban IF YES 
142 l 1 000067 ah (SP), 867 . >» 79 
S143 021324 003015 BGT 18S :: BRANCH IF YES 
The 1 000060 BIC #60. (SP)+ i 5 STRIP-OFF ASCII 
145 el ooo0de2 TST 2(SP) -:IS THIS THE FIRST CHAR 
Si4%6 el 1403 BEQ 17$ -: BRANCH IF YES 
5147 el 006316 ASL (SP) :: NO, SHIFT PRESENT 
5148 Oel 16 ASL (SP) . | 0 MAKE 
5149 021344 006316 ASL (SP) -: ROOM FOR NEW ONE 
SiSO 021346 oo0002 17S: INC 2(SP) - OF CHAR 
51 021 35¢ 16 177776 BIS =2(SP), (SP) i IN NEW CHAR 
Sl l BR 7$§ . HE NEXT ONE 
5153 021360 104401 o01212 18S: TYPE SQUES :: TYPE ?(CR)<LF) 
S154 621364 000720 BR -: SIMULATE CONTROL-U 
S1 .DSABL LSB 
SG 
2138 + RERELEREEREEE RES LEER ERE RE EEL ERLE EARLE PLE RLERERAR EER EASES SEES 
3133 s ATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
S161 -#  RDCHR :-GET A CHARACTER FROM THE QUEUE 
S162 : RETURN HERE - CHARACTER IS ON THE STACK 
S183 > i -:WITH PARITY BIT STRIPPED OFF 
165 ; 
166 021366 011646 SROCHR: MOV (SP). -(SP) ::PUSH DOWN THE PC AND 
167 Oel 1 p00094 oo90002 MOV 4(SP},2(SP) I 
8 1 000004 CLR 4(SP) - > GE READY FOR A CHARACTER 
70 GS140N 021412 eek ~(SP) cE NEW PC On STRGK 
4 rant ee ia ATi : BOP NEW PC AND Be 
Dele 005737 020612 1S: 1ST STKCNT :: WAIT ON A CHARACTER 
De ise6 Boga? le BEC Sfrow ss DSCRerENT THE COUNTER 
ae ll bs 1 166 oo0004 nOvE STKGOUT, 4(SP) » GET ONE CHARACTER 
143 te3727 rat 020621 CHP SIKQOUT, esTKaENO' DID fv GO. OFF OF THE END? 
146 12737 O20620 o20616 HOV SSTKQSRT, STKQOUT’: RESET THE POINTER 


es: a3 
: = A J 4 a gg 9 a Be a a a a 
Belt ROUTINE WILL INPUT A STRING FROM THE TTY 


SH BBB VRRIERHBsaNaunz23 


: ROLIN >; INPUT A STRING FROM THE TTY ; 
;# RETURN HERE - ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
.# -: TERMINATOR WILL BE A BYTE OF ALi O'S 
1456 O10346 SROLIN: MOV R3,-( SP} - SAVE R3 
051460 OOSO4E CLR -(SP) > :CLEAR THE RUBOUT KEY 
iS ture es 021712 i$: MOV aSTTYIN,R3 : ;GET 
1466 021722 2s: CMP SSTTYIN¢S. ,.R3  ;;BUFFER FULL? 
021472 1014SE BLOS 4$ -:-BR IF YES 


DORKLE.PLi-'2b-ARO asso 


51S 


Tod Leno SBO ATER SESS SVEN eee oa ag aie 


021474 


RRERRRRRRRRRRA 
pine 


bot ee 
oO .£T 


RRERRR 
BERS 


SPENSER TO ORR G Re 


st be pee be fee pet be pee be ba Bs Pm be Fe ps Fa hs Pe be fe be Fe 
N™N 
bas eee 
tur 


= =| = 
FORO FOFOFO FO FO FU FUrUrO FO FO FOO FU FoFOFD FOFOG 


: 


104410 


oe 


% 


Nz 
ore 


Pee gee 
Rae 
poe 


— 
-8 @ 
— = 
babe — ; 
aRSeeNs~ = 


Sh 


272 
=) 


is 


i 


e deesshst 


e 
ae 


000177 


021710 


021710 
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;;GO READ ONE CHARACTER FROM THE TTy 


10S: 


6$: 


Ss: 


7$: 


4§: 
3$: 


9S: 


STTYIN: . 
SCNTLU: . 
SCNTLG: . 
SMSUR: 


SMNEW: 


. SBETTL 


ROCHR 


-ASCIZ 


Taig 


mats 


a 
aa” 
a 
B 


+ hes 

~ Ww 
an — 

Py 

= 

$e 


SOF 


fee] as] an) 2 ess 4 
-~ — 

= 

4 


4#U7¢15><12> 
/*G/<15><12> 
(15><1l2>/SWR = / 


/ NEW = / 


T 


33 NO 
ii TS THIS THE FIRST RUBOUT? 


:?60 READ ANOTHER CHAR. 
-:RUBOUT KEY SET? 


;;BR_IF NO 


:: TYPE A BACK SLASH 


;;CLEAR THE RUBOUT KEY 
;;1S CHARACTER A CTRL U? 


- BR IF NO 

-: TYPE A CONTROL “U” 

-:GO START OVER 

-: 1S CHARACTER A “TR”? 

: sBRANCH IF NO 

* CLEAR THE CHARACTE 

-- TYPE A “CR” & “LF” 

:: TYPE THE INPUT STRING 
>*GO PICKUP ANOTHER CHACTER 
>: TYPE A ’?’ 


tTEGHO THE CHARACTER 
::CHECK FOR RETURN 


-:LOOP IF 


5 ;REST 
- sADJUST T 


NOT RETURN 


RETURN (THE 15) 


THE BUFFER AND LOOP 


T KEY FROM THE STACK 


HE STACK 


PUT ADDRESS OF THE 


AND 
FIRST ASCII CHARACTER ON IT 


; >RETURN 

OF ORAGE FOR ASCII CHAR. TO TYPE 
;s TERMINATOR 
Bk ty _ FOR TTY INPUT 


: ! CONTROL 


READ AN OCTAL NUMBER FROM THE TTY 


-_- ee ee ———*w = em — re eee 


“— 


I08 
SORE ROBRKL-E. -RKAZE RES DYNQMIC TEST ARR Bd Ok mdcaPhon rHeciey PAGE 99 
ti PU ee 
Re TUR HERE Oe ORD a arts wee 
s + HOCH ORDER BI soARE ON TOP OF THe STK 


SOOT: By LEE, RR BRE FORT 





j 
NOV RO, - (SP : : PUSH RO ON STACK 
mov, Rer-(3P) PU A Oh Sa 
1S: IN Z LINE 
MOV (SP)+,RO : GET RODRESS OF IST CHARACTER 
CLR Ri = CLEAR DATA WORD 
25: VB FRo)s. -«sP) ::PICKUP THIS CHARACTER 
BEG 3 ;;1F ZERO GET OUT 
l + 
ROL Re 
ASL RI 53#4 
ROL R2 
ASL Rl -: #8 
ROL Ro 
BIC 81C7. (SP) ;;STRIP THE ASCII JUNK 
ADD (SP)+,R1 :ADD IN THIS DIGIT 
3$: a (SP)+ :3k0 TERMINATOR FROM STACK 
pene MOV FY »: SAVE THE RESULT 
Hoy SPS CRS POP STACK iNTO Re 
MOV (SP)+ Ri -:POP STACK INTO R1 
HOV (SP)+'RO ;;POP STACK INTO RO 
SHIOCT: .WORD 0 ::HIGH ORDER BITS GO HERE 





.-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


4 SHEKELS SRESESLESEES LRELAERSERESRAASARSSREAARE LEASES AE RAZA RALARER 
: THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A E-DIGIT 


; XOCTAL (ASCIT) AND T 
; #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

+ MOV NUM, - (SP) :NUMBER TO BE TYPED 

x TYPOS ::CALL FOR OUT 

: ‘BYTE ON ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

-% wre 8 ;;M=1 OR O 

4% ;;1=TYPE LEADING ZEROS 

i ::O=SUPPRESS LEADING ZEROS 

:#$TYPON----ENTER HERE TO TYPE OUT WITH on SAME PARAMETERS AS THE LAST 

; #ST POS OR $TYPOC 

* MOV NUM, - (SP) ;;NUMBER TO BE TYPED 


HSORESES avy ons Baw SRT TER Is oon ee oe oO RE 


: TYPON :ICALL FOR TYPEOUT 


MD-11-DZRKL-E, RK11-RKOS DYNAMIC TEST MACY11 30(104%6) 14-JUL-77 08:03 PAGE 100 
OZRKLE.P11 26-APR-77 12:27 BINARY TO OCTAL (ASCII) AND TYPE 
ate —omen HERE FOR TYPEOUT OF A 16 BIT NUMBER 


NUM, -(SP) ; | NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


Mab) soFicL « FLOAD SeRO FILE. SWITCH 
aC alee eRe BF TORN ABORESS [vee 
'SomobE+1 «FRET FOR Stxves btctts 
;sSET THE ITERATION COUNT 

si gAVE Ra 

:: SAVE RS 
» RY -:GET THE NUMBER OF DIGITS TO TYPE 
$s STR Vic FOR MAX. ALLOWED 


L.RY -:GET THE ur TCH 
)> RS i CKUP T NPUT NRE 





b= babe re 
£uUrur-O 


banana anna aE z 


1 Geesne STYPOC: 
022302 STYPON: 


a 
a’ 


3 OOO NOU 
ra 
& oP Rotn ce 
as OOO = ol ee) 


= 
es 


Rigkik 

Gate 

UPS ORS PG OR 
bb 

PH FOS 2 SR 


7 
’ 
} 


Pe 


illite iD 
Li 





ef 
005003 R3 THE OUTPU 
906 105 1S: RS : SROTATE MSB INTO. =ce 
3$ -GO DO 
006 105 2s: RS ::FORM THIS DIGIT 
006 105 R5 
105 RE 
RS, R3 
1 3$: R ::GET LSB OF THIS DIGIT 
1 022304 SOMODE -: TYPE THIS DIGIT? 
Oie70s 177770 4177770 R3 s SBR TE D OF JUNK 
TST as | Hiss FOR THIS 0? 
ate BEQ 5§ it Be TE ves 
005204 4S: INC RY -: DON’T SUPPRESS 0 
BIS #’0,R3 ; MAKE THIS DIGIT ASCII 
S$ BIS 8° | R3 .: ASCII IF NOT ALREADY 
il c MOVB  R3.8S :: SAVE FOR TYPING 
TYPE a$ -:GO0 TYPE THIS DIGIT 
HE OECB $0CNT : COUNT BY 1 
ae BGT es >:BR IF MORE TO DO 
BLT 6S -:BR IF DONE 
INC RY :: INSURE LAST DIGIT ISN’T A BLANK 
BR es ;:GO DO THE LAST DIGIT 
MOV (SP)+,RS : RESTORE RS 
MOV (SP)+’ RY : *RESTORE RY 
MOV (SP)+-R3 : :RESTORE RG 
MOV 2(SP)°4(SP) — THE STACK FOR RETURNING 
wr (SP)+, (SP) 
BYTE O  sTomiae FOR ASCII DIGIT 
"BYTE 0 ERMINATOR FOR TYPE ROUTINE 
‘BYTE 0 : OCTAL DIGIT COUNTER 





KOS 


MD-11-DZRKL-E, RK11-RKOS DYNAMIC TEST MACY11 30(1046) 14-JUL-77 08:03 PAGE 101 
DZRKLE.P11 | 26-APR-77 12:27 BINARY TO OCTAL (ASCII) AND TYPE 
a Srdbe: -FSA5 8 tifneeh'OF BYEIFS to rvee 
-SBTTL TYPOSS - TYPE DECIMAL, LEADING ZEROES SUPPRESSED 
s RON FOR TYPING OUT DECIMAL NUMBERS, LEADING 0’S ARE SUPPRESSED 


IS LEFT “y hea NOTE THE 16 BIT BINARY NUMBER SHOULD 


CPU Udi -(SP) fut Tee te ay NUMBER ON STACK 





922308 Ol 900004 022346 TYPDES: MOV 4(SP).1$ GET THE NUMBER 
14 Ol 022346 MOV #1$,-(SP) -PUT PTR ON THE STACK 
022320 004737 022506 JSR a INARY NO. TO 
022324 004737 022352 JSR PC, J#SSUPRS :60 E OUT DECIMAL STRING 
122330 4 ) ! 

BEAD ithe my (SP), 4p : BE cove: on 
022342 005726 TST (SP)4 iPOP ST 

022344 RTI sRE 

02234 000000 oD0000 1S: .WORD 0,0 


.SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


5s REREEERE ERLE E GELLER REE REE EERE EEE EERE EEE ELE EE ES 
:RTHIS ROUTINE IS USED TO AN ASCIZ NUMBER SUPPRESSING THE 
;*LEADING NUMBERS . 


SSSR SERS IE AMAL OR ASE ARTOR ENS Soe aa oe ee E 





CALL 
: BNUMADR, = (SP) -:FIRST ADDRESS OF ASCIZ STRING 
;# Tek PCa S 
SSUPRS: MOV RO.-(SP) -SAVE RO 
MOV 4(SP) RO t+ PICKUP THE POINTER 
1S: TSTB  —s._« (RO ; ; TERMINATEOR 
BEQ “BR IF YES 
CHE #°0,(RO)+ : 21S THIS aN ASCII "0" ? 
2s: C + BACKUP BY ot 
7 RO, 3$ 1 aE FOR TYPING 
3S: TWDRD 0 iTASCIZ. POINTER GOES HERE 
MOV (SP)+,RO 
MOV (SP)+) (SP) | RESTORE THE STACK 
aiie RTS PC : RETURN 
Sule .SBTTL SAVE AND RESTORE RO-RS ROUTINES 
ite REEL ERLE EEE ELE A ELE E EEE E REE EE LEELA REE RR REE REL ERE RE 
S416 :#CALL: 
S417 -# SAVREG 


D 


~11-0 


LE.P11 


5418 


“EB Lae Dynan TEST 
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SAVE AND RESTORE RO-RS ROUTINES 


;#UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


j TOB--- (+16) 
-# 42---(4+18) 
7% +4---RS 
3% +6---R4 
;# +8---R3 
-#+10---R2 
;#+12---R] 
; #+14---RO 
SSAVREG: 
MOV me 4 ; s PUSH a ON ate 
NOV (3) :tBueH Re ON STAKK 
MOV -(SP) ; 5 PUSH R3 ON ST 
{3} bust Re Oh 8} 
- SAVE PC OF 
; gave Pe OF 


REA ire rest 


Ppa Stes 


MOV SP), -(SP) N FLOW 
MOV -),-() 3 N FLOW 
‘HOV St [ 

RTI 

; #RESTORE RO-RS 

; #CALL: 

oak. RESREG 
® 8:88 AES 
MOV (2) 4 BB BP} + RECT ORE Be OF MAIN FLOW 
MOV (524° RS ::POP STACK INTO RS 
NOV CP'S SiPop Stack INTO Re 
MOV ($P)+,Re :iBOP STACK INT INTO Re 
MOV CSPDS°RO :tbOp STACK INTO RO 


-SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
LRaeeeeeneeneeasnstsenonenuespenesnsssenesvanesnetensestuaneseys 


THIS ROUT INE ILL C 
MAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 


+ ¥CALL 


* a MOV #PNTR. -(SP) -:POINTER TO LOW WORD OF BINARY NUMBER 
;* gon Pc, as$D820 
: TURN : THE FIRST ADDRESS OF ASCIZ 
-1S ON THE STACK 
$DB2D: SAVREG VE 
MOV 2(SP).Re Hae Rete. BRIA POINTER 
MOV #SDECYL, RO GET ADDRESS OF “SDECVL” STRING 


MD-11-DZRKL-E, RK11-RKOS DYNAMIC TEST MACY11 30(1046) 14-JUL-77 08:03 PAGE 103 
OZRKLE.P11  '26-APR-77 12:27 DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
HY = eS $5RI i BYE ROP Re. a PhaRe Abnae RL ON STACK 
MOV (Re)+, Re 
i Cy ti RBorbss Gr fen Pouek 
1$ CLR THPURYE, RS PARTIAL 
2s: SUB (R4) RI + SOE TRACT TEN POWER 
Re 
Oh re IF TEN TO LARGE 
the ie FA 1B PAR TAL 
3S: ADD (R4)+,R1 + RESTORE SUBTRACTED VALUE 
fy 
ADD (R4)+, 
CMP (RS)+, (RS)+ ;;MOVE TO TEN POWER 
BIS #’0,R3 ::CHANGE PARTIAL TO ASCII 
MOVE  R3, (RO)+ :: SAVE IT 
™ DEC cPt)+ - sDONE? 
ane 1§ 5 BR IF 
CLRB (RO)+ : TERMINATOR 
RESREG {RESTORE REGISTERS 
PC - + RE TURN 
STNPWR: 145000 + 1.009 
35632 
160400 +1. 0E08 
2765 
113200 -» 1.007 
230 
io ;:1.0E06 
a ;;1.0E05 
_— ;;1.0E04 
ee ;:1.0€03 
- -:1.0&02 
se >: 1.0€01 
‘ -:1.0€00 
SDECVL: .BLKB 12. » sRESERVE STORAGE FOR ASCIZ STRING 


.SBTTL TRAP DECODER 


; ESSERE KARSSRARESLEREA RELA SAERERARERASRERARRRAAKARALARAARE REESE 
-&THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 

; #AND USE I INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
-¥OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
-#GO TO THAT ROUTINE. 





~ —_—— = -——-- oe -— _- -~- ee ee ee eee at ee ee are + 


SBA Pa atans gre Tes 
Ss ome 
ses 

1 022736 
000200 
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555. 
=f 





le 
14 
16 


000004 000002 


NO8 
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MACY11 30( 1046) 

TRAP DECODER 

ae an «he 
MOVE (RD). tt CET RIGHT BYTE OF TRAP 
i Me Mea 
MOV STRPAD(RO),RO ;;I1 TO TABLE 
RTS RO -:GO TO ROUTINE 


;; HIS IS USE TO HANDLE THE “GETPRI” MACRO 
STRAP2: oa (SP) ,-(SP) ;;MOVE THE PC DOWN 


4(SP),2(SP) -:MOVE THE PSW DOWN 
: RESTORE THE PSW 


-SBTTL TRAP TABLE 
;#THIS T CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;sBY THE “ INSTRUCTION. 


. ROUTINE 
$TRPAD: .WORD S$TRAP2 
STYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOQUT ROUTINE 
STYPOC ;::CALL=TYPOC  TRAP+2(1 ) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
STYPOS ::CALL=TYPOS | TRAP43(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
STYPON ;:CALL=TYPON  TRAP+4(1 ) TYPE OCTAL NUMBER (AS PER LAST CALL) 
STYPDS ;;CALL=TYPDS | TRAP+S(10440S) TYPE DECIMAL NUMBER (WITH SIGN) 
SGTSWR ;;CALL=GTSWR § TRAP4+6(104406) GET SOFT-SWR SETTING 
SCKSWR ;;CALL=CKSWR § TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
SROCHR - = CALL TRAP+10( 104410) TTY TYPEIN CHARACTER ROUTINE 
IN ::CALL=RDLIN TRAP411(104411) TTY TYPEIN STRING ROUTINE 
SRDOCT ::CALL T  TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 
SSAVREG ;;CALL= G TRAP+13(104413) SAVE RO-RS 
SRESREG ; ;CALL G TRAP+14(104414) RESTORE RO-RS ROUTINE 
CN.RST ;;CALL=CON.RESET TRAP+15( 104415) CONTROL RESET ROUTINE 
DR.RST ;;CALL=DRV.RESET TRAP+16(104416) DRIVE RESET ROUTINE 
MSGE ;;CALL=MESAGE TRAP+17(104417) MESSAGE HANDLER 
TY.MSG ;;CALL=TYPMSG TRAP+20(104420) MESSAGE TYPEOUT ROUTINE 
CN.RDY ;;CALL=CON.ROY TRAP+21(104421) WAIT FOR CONTROL READY 
TSTRWS ;;CALL=TST.RWS TRAP+22(104422) TEST R/W/S RDY SET 
RES.DO ;;CALL=RESDON TRAP+23(104423) DRIVE RESET DONE? 
TYPDES ;;CALL=TYPDSS TRAP+24(104424) TYPE DECIMAL, SUPRES LDG 0°S 


SET SRLS RR ee 


-SBTTL POWER DOWN AND UP ROUTINES 
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- 
> 
~ 
oe 















555 S ss SSSRESSESSSSSSSSGESS 
=z 1 Sy ier c FOR FAST UP 
=> 1 SFaaN0 bopose * Rov +3; :PRIO:7 
> ‘X 1 MOV s8 RO TACK 
; 1014 MOV + R TACK 
ae bee ti ey i a 
35F MOV 8 RY TACK 
eg; MOV 3 Wo 
abe NOV 3 ON STACK 
5% 160 | MOV + 
ooog24 HOV ,@8PWRVEC ::SET UP VECTOR 
ei .-e ; sHANG UP 
o° HSERGREE SRE REESESAREESESSSLEFERE RESTS 
“POWER UP ROUTINE 
27 158 oo0024 $PHRUP: ae" : hai of FAST DOWN 
iz oe 
923160 : :s MATT FOR THE TTY 
RIED 1S ie bOe rte ING 
156026 
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7,17 


ss 


Se ee oe 
NOUS We 
OE OR ON OO re 


; 


 sisme 
; Bias 






1 
1 
1 
1 
31 
l 
1 
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gi. g8eaeeeaaRaeS 





“> ( Rd + NiO RO 
18 Oe: 10 ‘Bi a c'Fiaer THE POWER DOWN VECTOR 
ig Ie: inert SDCBSE ; MetRVEC % 2° oF 
be0 Ge3ite : THE POWER FAILURE 
: 323 1 44 SPWRNG: $POWER - FAIL MESSAGE POINTER 
3 Je31 (PC)+, (SP) > RESTART AT PWREL 
SH SPWRAD A ae PWRFL - RESTART ADDRESS 
te 31 SILLUP: HALT -- THE POWER UP SEQUENCE WAS STARTED 
0231 BR -2 . 8 ORE THE POWER DOWN WAS COMPLETE 
0231 SSAVRE: 0 -:PUT THE SP HERE 
x Ibe 047520 042527 SPOWER: .ASCIZ <15><12>“POWER™ 
EVEN 


CO9 
"0- Sim RKLL-RKOS DYNAMIC TEST MACYL{ 30(10Me) 14=JUL-77° 08:03 PAGE 106 
.SBTTL FUNCTION SELECTION PROGRAH 


ne 
NEPLYT EIN One OF THe FoLLouING comes. 









QUESTION (RKDA?) WILL 


imacucers cE “er 27) Wee Th THE OCTAL 


® ON WHICH SEEK IS TO BE DONE. 
‘THE R Te BA 81M 
ant BBS HRP EI Ia Te 
FO Re WATER 6 BP Abe hdd mom 


oN THE (OCTAL) PATTERN TO BE WRITE CHECKED. 


i pag FOR_DATA - YOU CAN USE 


IN THIS (OR YOU _CAN 
AS LONG AS IT DOES NOT OVERLAY 

TERS EP APG RIOT a 2, 

- FS SRIGe Pera hs Baca aie," eae a 


; RELEVANT REG TSTER CONTENTS GIVEN 
Rs CONTAIN RKC content? 


CONTAIN Phe” OY ENDER aS BETWEEN 
Rater SEEK IS TO BE DONE. 


Je3 1 < 

fe31 76 Low4OL 023200 TYPE 65S ;; TYPE ASCIZ STRING 

123176 gF Ng “GET OVER THE ASCIZ 
j4bSS: "ASCIZ ¢15><12>/FUNCTION? 7 


: TERM 

fc ee (9c SGETA DISC RODRE ES 
SCYLI IN, 

'BE ASKED AGAIN. 


; IN 
;WILL 






REESE EEE LED ETC SS TEL REEEEEEE | 
a 
g 


DOS 
SBP DI RP PTH PUP alata OD PE 17 


-~ 
souw 
-+ + 
2B 
eee 


xe 
a3 
a 

= - 


-_——_— 
vad 
~~ 
— 
ae 
a 
xD 





S689 MOV 
a a PC. CHKSWO CHECK SW O SET? 
MOV #4003, Re 
BR NXTDA 
9s: MOV 83 
BF 
1S: My (RO) ac 
CHKSWO “CHECK SW O SET? 
MOV #4007, Re 
BR NXTDA 
MOY 87.Re 
ge NxTBA 
21° es: CMPB R1,8’R 
i Be fo.vo 
i Be 
ie es: fee lec 
rt a res 
: BR nT be 
ud } 3S: CMPB ae 
7e3 O23: om (RO). #'R 
ye tee my eee 
78 BR NXxTbA 
>/ ct 4S: CMPB R1,#’C 
2 CHEE RO) 8’R 
57 BNE FUNBEG 
57 de MOV #1.Re 
Te BR EXEC 
5735 cs: CPB = séR1 #’S 
57 3 BNE FUNBEG 
T£ CMPE (RO), #°K 
37 3 BNE FUNBEG 
27 35 MOV #11,Re 
65: 
TYPE 67S :: TYPE ASCIZ STRING 
S74 oF $ -:GET OVER THE ASCIZ 
S744 -:67$: .ASCIZ /CYLi? / 


MD-11-D 
D 
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024032 








DYNAMIC TEST 
le:27 


MACY11 30( 1046) 
FUNCTION SELECTION 


NXTBA: 


NXTWC: 


xy 


wwa t+ 
preteteto gad Ir 


— - 
™N 


IZ 


BBGRESSS p53 38 RBS 


ow 
a 
Oo 


Beotdnses 
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14-JUL-77 06:03 PAGE 108 
PROGRAM 
, INPT 

6§ 

RO,R4 


69S ;; TYPE ASCIZ STRING 
-:GET OVER THE ASCIZ 


65$ ;;YPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


65$ :; TYPE ASCIZ STRING 
bug -:GET OVER THE ASCIZ 


DERKLE-PLi- '2e-APRPP esa? 


See RReERe 


oe Bae ee 
= 


NOUS Wore 


Beeee 
| ES 


di 


* 
4A 


x? 


Dio intoio ioe, 
At AT AT At 


matey 


! 


4 


Ay Ay Ay Ay 4 
ATATATATA at 
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1D 6D 6D 6p 6D 6D oD 6D 6D 6p op o& 
RE 


Ay dy Ay 4 
att tr ort 


sie 











O441e2 
Cae 
12637 


000401 
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8 


88 
ag 


001502 


00001 1 


000312 


155536 
158S2e 


1SSO4E 


>N 
-YES, ASK FOR PATTERN 


naCY 11 30(10%6) 14-JUL-77 08:03 PAGE 109 
FUNCTION SELECTION PROGRAM 
--65§: .ASCIZ /S@WORDS? / 
64s: 
RDOCT 
NEG (SP) 
MOV (SP)+, INDX4 
BR EXEC 
EXEC1: CON.RESET -CLR EROR, CONTROL RESET 
FYEC: cre #11,R2 :SEEK FUNCTION? 
CMP RY, R3 -IF SEEK, INSERT THE RIGHT 
BEQ 3$ -CYLINDER ADDRESS 
MOV R4,R3 
m 
33: MOV ROE aRKBA 
MOV F2 aRKDA 
MOV INOxs IRKWC 
MOV ORKCS 
1S: TSTB aRKCS -WAIT FOR CNTROL RDY 
CMP #1,R2 :IF IT’S CON RESET FUNCTION 
BEG 4g ; DONT WAIT FOR R/W/S RDY 
SDON sR/W/S RDY? 
4g: BIT #140000,9RKCS ;ERROR? 
CHSW: ay 253, ahr i TERMINATE THIS FUNCTION OR REPEAT? 
JMP FUNBEG : TERMINATE 
FUNERR: MOV #EXEC1,SLPERR ;SET UP FOR LUPING 
MOV 8EXEC1. SLPADR 
JSR PC, GTYRG 
ERROR 30 “REPORT ERROR 
CON. RESE “CLR ERROR 
BR C 
INPT: T 
MOV (SP)+.RO 
CMP RO, #31 
BGT 1$ 
ASL RO 
ASL RO 
asi RO 
ASL RO 
ASL RO 
ADD 82, (SP) 
1S: RTS PC 
CHKSWO: BIT #SWO, ISR :WRITE A PATTERN GIVEN BY USER” 
BEG 1$ 
TYPE 
eR 


65S >: TYPE ASCIZ STRING 
3 GET OVER THE ASCIZ 


ORE Bre eo Aber ee TEST 


1 


x 


001476 


ak 


? 
~_ 
o 


: 





001230 


020114 
044504 
051440 
052106 
045505 





047440 


GO9 
ACYL 20(10¥6) 14-J.-77 08:03 PAGE 110 


;;058: .ASCIZ /PATRN?/ 


bds: 
iy os (SP)+, IOBUF 1 
” 
MOV eI0BuUF 1, INDX2 
RTS PC 
1$: ADD 86, (SP) 
RTS PC 
FCHECK: DRV.RESET 
CON. RESET 
MOV DRIVAD, DRHOLD 
BIT #20000 ; DRIVAD 
BEQ 1$ 
Ic #20000, DRI VAD 
1$ BIS #20000 , DRIVAD 
MOV ORIVAD, IRKDA 
MOV #11, aRKCS 
CON. RDY 
MOV DRHOLD , IRKDA 
CON. RDY 
BIT #100, IRKDS 
BNE 
TST (RS)+ 
3$ MOV DRHOLD, DRIVAD 
ORV. RESET 
RTS aS 
SIZEF: CLR DRIVAD 
MOV #ORIVO,RO 
4g: TSTB (RO) 
BEQ 2g 
TSTB = ELROD) 
BEQ et 
JSR RS, FCHECK 
R 2g ia 
Bie BB’ SURO) 
2s: TST (RO)+ 
TST (RO)+ 
ADD #40000, ORIVAD 
CMP 8ORIV741,RO 
BGT 4§ 
RTS pc 
-ERROR MESSAGES 
EM]: .ASCIZ 
EMe: .ASCIZ /SIN ON SEEK/ 


;SAVE THE PATTERN 


;SKIP NXT 2 INST ON RETURN 


;SAVE DRIVE ADRR 
;SEE IF ODD 


>MAKE EVEN 
-MAKE ODD 
:DRIVE ADDR 
-DRIVE SEEK 
:OTHER DRIVE 
sHEAEDS IN MOTIONN? 
-NO SO RK-OSJ 
*YES RK-OSF 
-RESTORE ADDR 


-START AT DRO 
-TABLE OF AVAIL DRIVES 
“THIS DRIVE HERE? 
“COMPLEMENT HERE? 
-SEE IF F MODEL 


;SET sch FOR F 
;BOTH DRIVES 


sNEXT PAIR OF DRIVES 
-NEXT ACTUL ADDR 
sCHECKED ALL? 

-NOT YET 


/CNTRL RDY DION’T SET AFTR SEEK/ 


MO-11-OZRKL-E, RK11-RKOS DYNAMIC TEST MACY11 3011046) 
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SPRL EEP SOURS ROOSS ESAT bet eae ca SER OO SA NS 


EM10: 


EM11: 


EMle: 


EML3: 


pai R i? O47440 «EMILY: 


024757 lee O4050S 020104 NSIS: 


FUNCTION SELECTION 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


.ASCIZ 


14-JUL-77 08:03 PAGE 111 
PROGRAM 


/ORE ON SEEK/ 


/*ERR® ON SEEK/ 


/DRU ON SEEK, PUT DRV ON ’LOAD’ 8 ‘RUN’ 


“R/W/S ROY NOT SET AFTER SEEK” 


“SIN ON WRT FMT/ 


/*ERR’ ON DOING WRITE FMT/ 


“SIN ON RD/FMT” 


7*ERR’ ON READ FMT/ 


“WRONG HORS FROM ’SEC#’/ 


7EROR ON IMPLIED SEEK FROM ’CYLA’ TO 


/READ WRONG HORS FROM ‘CYLB’ ABOVE / 


*CYLB’ / 


DERKLE-PLi- '2e-MPR'P sso? 


SERENE 
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Function seLee 


EMIE6: 


MS17: 


EM20: 


EMe1: 


EM2e: 


EM23: 


EMe4: 


EMeS: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


TION 


14-JUL-77 08:03 PAGE lle 
PROGRAM 


/READ WRONG, 1ST WRD FROM SEC 0, ’CYLB’ ‘ON IMPLIED SEEK FROM ‘CYLA’)/ 


/READ 1ST WRD FROM SEC 1, ’CYLB’ ABOVE/ 


7READ WRONG HDRS ON IMPLIED SEEK FROM “CYLA* TO *CYLB’” 


ZEROR ON DOING WRITE ON DISK/ 


“SIN ON DOING WRITE/ 


“HE ON DOING READ/ 


/CSE ON READ/ 


/DATA EROR ON READ FROM DISK ADRES/ 


Oat =O RRKL-E, .RKLLEREQS DYYGMIC TEST 
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BIg SSSA SEER TER LOR REDRESS eee ee oe un S EES 
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EM26: .ASCIZ /HE ON WRT CHK/ 

EM27: .ASCIZ /WRT CHK EROR/ 

EM30: j.ASCIZ /EROR/ 

DATA HEADERS 

DH1: -ASCIZ 7 PC RKCS RKER RKDS - RKDA/ 

DHE : -ASCIZ /SEEK # SEEKING ERRORS/ 

DH7: .ASCIZ 7 PC RKCS RKER RKDS RKDA CYL/ 

DH11: .ASCIZI/Z PC RKCS RKER RKDS RKDA: DR CYL SUR 
DH13: .ASCIZ /SEC# HDR RCVD/ 


KOS 


SALT Sa EPS PRR SPAE i 





TRYS/ 
TRY 8/ 


RKOS 
RECVD 


RKER 


CYLA CYLB 
-ASCIZ 7 PC CYLA CYLB EXPCT 


DH14 
DHIE: 


—. oe 
ab cles 
eee ss 





See 


~~ 
® 
+ > 


Pa sdaasoseaoaeone: 


RECVD/ 


EXPCT 


CYLB 


-ASCIZ -7 PC 


ae 
ty 





SEC/ 


RKOS RKDA: DR CYL SUR 


PC TRY# = RKCS = RKER 


-ASCIZ/ 


DHe4: 


eo eee 
Goeu 


EE 2 


RECVD CYL SUR SEC/ 


DHeS: .ASCIZ /WORD® EXPCT 


;ERROR DATA POINTERS 


- EVEN 


ee 


eng ond 


aa ar 





SERRPC , SREGO, SREGi , SREG2, SREGS, 0 


. WORD 


SERRPC , SREGO, SREG1 , SREGe, SREGS, SREGY, 0 


. WORD 


O01i6e 001164 ODT7: 


026350 O01116 


Stats [alo 121 EAS ea SPN At itot ta tote eta 


SF 8 EE kk hh Oh a ad hd ad a Od dd ak a hh ad ad ad nd ak wd nd od eed Od 4 
000000000 DDODDDVVUNV VOW DWV 





MO-11-DZRKL-E, RKI1-RKOS DYNAMIC TEST MACY11 30(10%6) 14-JUL-77 08:03 PAGE 115 
DZRKLE.P11  26-APR-77 12:27 FUNCTION SELECTION PROGRAM 
l 001170 001172 
$1 GBS BUSS 
6140 026366 001116 001162 001168 OT11:  .WORD  SERRPC,SREGO, SREG1, SREG2, SREGY, SREGS, SREGE, SREG7.0 
i SeeiGe SBLLZe | bbL200 
4y l 11 001164 OT17: .WORD SERRPC,SREGO,SREG1,SREG2,0 
ES SStHe BLE BLM 
BLN? 1116 rate mabe DT24:  .WORD  SERRPC,$REGIO, SREGO,SREG1, SREG2, SREGY, SREGS, SREG6, SREG7,O 
fe Ms ti3e 001 
6151 
6152 :DATA BUFFERS 
at LOBUFO 
b155 Geb Me SOF BUE: -BLKW 24. - IOBUFO AND IOBUF1 ARE 
61 BUFRY: .BLKW 24. -TWO - 768 WORDS LONG BUFF 
61 BUFRS: .BLKW 24. ‘NORMALLY USED FOR DATA TRANSFERS 
61 BUFR: -BLKW oY. ‘TO AND FROM DISK 
61 : .BLKW 24. 
6160 BUFRIO: .BLKW 128. 
6161 26 BUFRI1: .BLKW 128. 
6162 BUFRI2: .BLKW eB. 
61 4b BUFRI3: .BLKW 128. 
bl : l BUFRI4: .BLKW 136. 
166 031446 IOBUF1: .BLKW 768. 
616 
6168 
6169 
61 000001 END 


MOS 
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ERRORS DETECTED: 
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